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aeeee MODIFICATION HISTORY seeee 


Original release: 31-OCT-83 (EDITED 11-JUL-83) 
Bert Kleinschmidt 
Version BO 09-OCT-83 Bert Kleinschmidt 


Fixed typogrephicel errors. 
Moved tests from this progrem to CVDHB (Part 2): 

Old CVOHC (version A) tests 4 through 6 are 

now New CVDHB (version 8) tests 13 through 15. 
Added 3 new tests (4 through 6) to increase test coverage. 


Version CO 17-JUL-84 Bert Kleinschmidt 
Modified control of processor priority and LTC throughout 
the progrem to guarantee a less than 2 second 
responce to a Break request while running under APT. 


Version CO 28-Sep-84 Peter ONeil 
Modified VDHUC.CUC to turn off clock interrupt if clock 
wes enabled. 


Version DO 26 -Apr -85 Howerd L. Marshall 





Changed test 4, DMA Address: Test to use KPARS instead of 


KPAR6, and as to not modify KPARO, 6 + 7. 


Modified test 7, Single Character Mode Test, to run under the 
new Extended monitor of XXDP+ by changing minimum baud rate 


uséed from 50 to 300 


In ‘addition, found test 8, DMA Mode Test, to be a failure under 
the Extended monitor because the DRS and XXDP+ services require 
more time to execute the SETPRI + GETPRI macros. Substituted 


" those macros with MTPS + MFPS respectively. 


-— 
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1.0 GENERAL PROGRAM CONSIDERATIONS 
1.1 PROGRAM ABSTRACT 


CVDHC is part three of the DHV11-M functional verification test. This 
pert of the test verifies that the major communication functions of 
the board which use the UARTs are functioning correctly. This program 
exercises the board by transmitting and receiving lerge blocks of data 
in loopback. 

THIS DIAGNOSTIC HAS BEEN WRITTEN FOR USE WITH THE DIAGNOSTIC RUNTIME 
SERVICES SOFTWARE (SUPERVISOR). THESE SERVICES PROVIDE THE INTERFACE 
TO THE OPERATOR AND TO THE SOFTWARE ENVIRONMENT. THIS PROGRAM CAN BE 
USED WITH XXDP+, ACT, APT, SLIDE AND PAPER TAPE. FOR A COMPLETE 
DESCRIPTION OF THE RUNTIME SERVICES, REFER TO THE XXDP+ USER‘’S MANUAL. 
THERE IS A BRIEF DESCRIPTION OF THE RUNTIME SERVICES IN THE OPERATING 
INSTRUCTIONS-COMMANDS OF THIS DOCUMENT. 


1.2 SYSTEM REQUIREMENTS 
The following hardware is required to run the DHV FVT: 


© LSI-11 processor with at least 32 Kbytes of RAM. 
© DHV11-M boards installed on the Q-bus. 


© Appropriate program load device supporting XXDP+ 
media or a down-line loading system. 


1.3 RELATED DOCUMENTS AND STANDARDS 
© DHV11-M Hardware Manuel - This manual describes the 
functions and uses of the DHV11-M device. 


o XXDP+ User's Manuel - Describes the running of 
diagnostics under the XXDP+ monitor. 





SEQ 0005 
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1.4 DIAGNOSTIC HIERARCY PREREQUISITES 
The LSI-11 processor, the Q-BUS, the system memory, the 


console terminal, and the load media are assumed to have 
been tested and found working before this program is run. 


—— 








SEQ 0006 
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THIS SECTION CONTAINS A BRIEF DESCRIPTION OF THE RUNTIME 
SERVICES. FOR DETAILED INFORMATION, REFER TO THE XXDP+ 
USER'S MANUAL. (CHQUS). 





2.1 COMMANDS 


THERE ARE ELEVEN LEGAL COMMANDS FOR THE DIAGNOSTIC RUNTIME SERVICES 
CSUPERVISOR). THIS SECTION LISTS THE COMMANDS AND GIVES A VERY 
BRIEF DESCRIPTION OF THEM. THE XXDP+ USER'S MANUAL HAS MORE DETAILS. 


COMMAND EFFECT 

START START THE DIAGNOSTIC FROM AN INITIAL STATE 

RESTART START THE DIAGNOSTIC WITHOUT INITIALIZING 

CONTINUE CONTINUE AT TEST THAT WAS INTERRUPTED (AFTER tC) 

PROCEED CONTINUE FROM AN ERROR HALT 

EXIT RETURN TO XXDP+ MONITOR (XXDP+ OPERATION ONLY!) 

ADD ACTIVATE A UNIT FOR TESTING (ALL UNITS ARE 
CONSIDERED 70 BE ACTIVE AT START TIME 

DROP DEACTIVATE A UNIT 

PRINT PRINT STATISTICAL INFORMATION (IF IMPLEMENTED 


BY THE DIAGNOSTIC - SEE PERFOMANCE AND PROGRESS 
REPORTS SECTION OF THIS DOCUMENT) 


DISPLAY TYPE A LIST OF ALL DEVICE INFORMATION 
FLAGS TYPE THE STATE OF ALL FLAGS (SEE FLAGS SECTION) 
ZFLAGS CLEAR ALL FLAGS (SEE FLAGS SECTION) 


A COMMAND CAN BE RECOGNIZED BY THE FIRST THREE CHARACTERS. SO 
YOU MAY, FOR EXAMPLE, TYPE “STA” INSTEAD OF “START”. 

MORE INFORMATION CAN BE FOUND WITHIN THE SECTION LABELLED 
EXTENDED COMMAND SYNTAX 


2.2 SWITCHES 


THERE ARE SEVERAL SWITCHES WHICH ARE USED TO MODIFY SUPERVISOR OPERATION. 
THESE SWITCHES ARE APPENDED TO THE LEGAL COMMANDS. ALL OF THE LEGAL 
SWITCHES ARE TABULATED BELOW WITH A BRIEF DESCRIPTION OF EACH. 

IN THE DESCRIPTIONS BELOW, A DECIMAL NUMBER IS DESIGNATED BY “DDDDD’. 


SWITCH EFFECT 

/TESTS:LIST EXECUTE ONLY THOSE TESTS SPECIFIED IN 
THE LIST. LIST IS A STRING OF TEST 
NUMBERS, FOR EXAMPLE - /TESTS:1:5:7-10. 
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THIS LIST WILL CAUSE TESTS 1,5,7,8,9,10 TO 

BE RUN. ALL OTHER TESTS WILL NOT BE RUN. 
/PASS :00000 EXECUTE DDDDD PASSES (DDDDD = 1 TO 64000) 
/FLAGS:FLGS SET SPECIFIED FLAGS.SEE THE FLAGS SECTION 

OF THIS DOCUMENT. 
7EOP : DDDDD REPORT END OF PASS MESSAGE AFTER EVERY 

DODDD PASSES ONLY. (DDDDD = 1 TO 64000) 
/UNITS:LIST TEST/ADD/OROP ONLY THOSE UNITS SPECIFIED 

IN THE LIST. LIST EXAMPLE - /UNITS:0:5:10-12 

USE UNITS 0,5,10,11,12 CUNIT NUMBERS = 0-63) 


EXAMPLE OF SWITCH USAGE: 

START/TESTS :1-5/PASS: 1000/E0P : 100 
THE EFFECT OF THIS COMMAND WILL BE: 1) TESTS 1 THROUGH 5 WILL BE 
EXECUTED, 2) ALL UNITS WILL TESTED 1000 TIMES AND 3) THE END OF 
PASS MESSAGES WILL BE PRINTED AFTER EACH 100 PASSES ONLY. A 
SWITCH CAN BE RECOGNIZED BY THE FIRST THREE CHARACTERS. YOU MAY, 
FOR EXAMPLE, TYPE “/TES:1-5”" INSTEAD OF “/TESTS:1-5". 


aaa A TABLE THAT SPECIFIES WHICH SWITCHES CAN BE USED BY EACH 
OMMAND . 


TESTS PASS FLAGS EOP UNITS 


START Xx X X x X 
RESTART xX Xx Xx x Xx 
CONTINUE x X X 

PROCEED X 

DROP X 
ADD X 
PRINT 

DISPLAY Xx 
FLAGS 

ZFLAGS 

EXIT 





SEQ 0008 
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FLAGS ARE USED TO SET UP CERTAIN OPERATIONAL PARAMETERS SUCH AS 
LOOPING ON ERROR. ALL FLAGS ARE CLEARED AT STARTUP AND REMAIN 
CLEARED UNTIL EXPLICITLY SET USING THE FLAGS SWITCH. FLAGS 

ARE ALSO CLEARED AFTER A START COMMAND UNLESS SET USING THE 
FLAG SWITCH. THE ZFLAGS COMMAND MAY ALSO BE USED TO CLEAR 

ALL FLAGS. WITH THE EXCEPTION OF THE START AND ZFLAGS COMMANDS, 
NO COMMANDS AFFECT THE STATE OF THE FLAGS; THEY REMAIN SET OR 
CLEARED AS SPECIFIED BY THE LAST FLAG SWITCH. 


FLAG EFFECT 

HOE HALT ON ERROR - CONTROL IS RETURNED TO 
RUNTIME SERVICES COMMAND MODE 

LOE LOOP ON ERROR 

IER* INHIBIT ALL ERROR REPORTS 

IBRe INHIBIT ALL ERROR REPORTS EXCEPT 


FIRST LEVEL (FIRST LEVEL CONTAINS 
ERROR TYPE, NUMBER, PC, TEST AND UNIT) 


IXRe INHIBIT EXTENDED ERROR REPORTS (THOSE 
CALLED BY PRINTX MACRO’S) 

PRI DIRECT MESSAGES TO LINE PRINTER 

PNT PRINT TEST NUMBER AS TEST EXECUTES 

BOE “BELL” ON ERROR 

UAM UNATTENDED MODE (NO MANUAL INTERVENTION) 

ISR INHIBIT STATISTICAL REPORTS (DOES NOT 


APPLY TO DIAGNOSTICS WHICH DO NOT SUPPORT 
STATISTICAL REPORTING) 


IOR INHIBIT PROGRAM DROPPING OF UNITS 

ADR EXECUTE AUTODROP CODE 

LOT LOOP ON TEST 

EVL EXECUTE EVALUATION (ON DIAGNOSTICS WHICH 


HAVE EVALUATION SUPPORT) 
*#SEE THE ERROR INFORMATION SECTION OF THIS DOCUMENT. 
SEE THE XXDP+ USER'S MANUAL FOR MORE DETAILS ON FLAGS. YOU MAY 
SPECIFY MORE THAN ONE FLAG WITH THE FLAG SWITCH. FOR EXAMPLE, 
TO CAUSE THE PROGRAM TO LOOP ON ERROR, INHIBIT ERROR REPORTS 
AND TYPE A “BELL” ON ERROR, YOU MAY USE THE FOLLOWING STRING: 


/FLAGS:LOE: IER: BOE 





SEQ 0009 
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2.4 EXTENDED COMMAND SYNTAX 


2.4.1 START COMMAND - 

SHRPEEESEREREESEEREEEAAEEEREREEEREEEE SEES EERE REEEREEEEEEEEE 

STACRT)/TESTS: <TEST-LIST>/PASS: <PASS-CNT>/FLAGS: 
<FLAG-LIST>/EOP: <INCR> 

Ett toto P ei P iii rit tri i rir ttittitt ttt ttt tee Tee er 


2.4.1.1 Tests Switch (/TESTS:<TEST-LIST>) - 


<TEST-LIST> Is a sequence of decimal numbers (1:2 etc.) 
or ranges of decimal numbers (1-5:8-10 etc.), seperated by 
colons, that specify the tests to be executed.Tests will be 
executed in numerical order regardless of the order of 
specification. The default is to execute all tests. On 
this and all switches, the angle brackets <> are punctuation 
used in the definition only, and are not to be typed by the 
operator. See exemple at end of "Effect of Start Command” 
section. 


2.4.1.2 Pass Switch (/PASS:<PASS-CNT>) - 


<PASS-CNT> Is a decimal number indicating the desired 
number of passes. A pass is defined as the execution of the 
full diagnostic (all selected tests).The default is 
non-ending execution. In this case, exit from the program 
is accomplished either by typing a control/C or by occurance 
of an error with the halt on error flag being set. The exit 
is a return to command mode. See example at end of "Effect 
of Start Command” section. 


2.4.1.3 Flags Switch (/FLAGS:<FLAG-LIST>) - 


<FLAG-LIST> is a sequence of elements of the form 
<FLAG>, <FLAG*1>, or <FLAG=0>, separated by colons, where 
<FLAG> has one of the following values: 


HOE Halt on error, causing command mode to 
be entered when an error is encountered. 

LOE Loop on error, causing the diagnostic to 
loop continuously within the smallest 
defined block of coding (segment, subtest, 
or test) containing the error. 

IER Inhibit error reporting. 

IBE Inhibit basic error reports. 

IXE Inhibit extended error reports. 

PRI Direct all messages to a line printer. 

PNT Print number of test being executed. 

BOE Bell on error. 

UAM Run in unattended mode, bypassing manual 








SEQ 0010 
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intervention. 

ISR Inhibit statistical reports. 

IDU Inhibit dropping of units by diagnostic. 

LOT Loop on test. 
The flegs named or equated to 1 are set. those equated to 0 
are cleared. A flag not specified is cleared. If the flags 
switch is not given ell flegs are cleared. See example at 
end of “Effect of Start Command” section. 


2.4.1.4 End Of Pess Switch (/EOP:<INCR>) - 


<INCR> Is ea decimal number indicating how often (in 
terms of passes) it is desired that the end of pass message 
be printed. The default is at the end of every pass. See 
example at end of "Effect of Start Command” section. 


2.4.1.5 Effect Of Stert Command - 


The effect of the stert command is to initiate the 
herdwere peremeter dislogue, the software parameter 
dialogue, the initialization questions, and then the 
diagnostic commences testing. 


The hardware parameter dialogue commences with the 
question “@ UNITS (D) ?” to which the operator should reply 
with the number of units to be tested. Following this are 
the questions whereby the P-Tables themselves ere built. 
Each P-Table is a core-resident table containing all the 
herdware information for one complete unit.Each question is 
followed by the response redix (D for decimel, 8 for anes 
0 for octel, L for Yes/No) in parentheses and the default 
value after the parentheses. For the actual Herdware 
P-Table questions see the "Hardwere Perameters” section. 


Following the hardware questions ere the software 
questions to build the software tables, which define 
operating perameters of the diagnostic program. These 
a ere described in the “Software Perameters” 
section. 


EXAMPLE: 
STA/TESTS:1:3-4:/PASS:3/FLAGS: IER:HOE=1 


This command will cause three passes to be mede, with 
each pass consisting of tests 1,3, and 4. There is no 
difference between saying <FLAG> and saying <FLAG=1>. The 
notation <FLAG=0> is meaningful only on @ command other than 
stert to cleer ea fleg that was previously set. Note thet on 
all commands only the first three letters are scanned. 





SEQ 00'1 
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2.4.2 Restert Commend - 

660600000 0060006000000600000006046000000046060000000000004048008 

RESCTART)/TESTS:<TEST-LIST>/PASS: <PASS-CNT>/FLAGS: 
<FLAG-LIST>/UNITS: <UNIT-LIST> 

$660006000000006000060606600 660606060606 0000000000000000800446 


2.4.2.1 Tests, Pass, And Flags Switches - 


<TEST-LIST>, <PASS-CNT>, and <FLAG-LIST> are as in the 
stert command. 


2.4.2.2 Units Switch (/UNITS:<UNIT-LIST>) - <UNIT-LIST> IS 
A SEQUENCE OF DECIMAL NUMBERS (0,1 ETC.) OR RANGES OF 
DECIMAL NUMBERS (0-5, 8-10 ETC.) THAT SPECIFY THE UNITS TO 
BE TESTED. THE NUMBERS ARE SEPARATED BY COLONS. THE 
NUMBERS MAY RANGE FROM 0 THRU N-1 (N IS THE NUMBER OF UNITS 
SPECIFIED IN THE PREVIOUS START COMMAND). THE NUMBER 
INDICATES THE POSITION OF THE P-TABLE AS THE DATA WAS 
ENTERED OURING THE HARDWARE DIAGLOGUE. THE UNITS WHICH ARE 
SELECTED MUST NOT HAVE BEEN DROPPED BY THE OROP COMMAND. 
SEE__THE DISCUSSION OF ADD AND DROP COMMANDS BELOW. DEFAULT 
RR ALL UNITS WHICH HAVE NOT BEEN DROPPED BY A DROP 


2.4.2.3 Effect Of Restert Command - 


The restert commend differs from the start commend § in 
that the P-Tebles from the previous start commend (there 
must have been one) ere used, instead of new ones being 
built. The softwere dialogue may optionally be reexecuted 
Coperetor will be asked). The commend cen be used efter 
command mode hes been reentered in eny of the three normel 
ways: e) the requested number of pesses have been made, b) 
en error was encountered with the helt on error fleg set, or 
¢) e control/C was entered by the operator. 


2.4.3 Continue Command - 
$60660466666066000000606000000000606006000000606006000000006 


CONC TINUE )/PASS : <PASS -CNT/FLAGS : <FLAG-LIST> 
06606060606 0460600000600000000000000000600000008000000000008 





SEQ 0012 
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2.4.3.1 Fleg Switch (/FLAGS:<FLAG-LIST>) - 


<FLAG-LIST> Is seme es in the start commend, but 
unspecified flegs retain their current velue. 


SEQ 0013 


2.4.3.2 Effect Of Continue Commend - 


Continue must follow e stert or restert, end commend 
mode. must heave been entered due to a halt on error or e 
control/C. The effect of the command is to go to the 
beginning of the test thet wes being executed when the helt 
or control/C took plece. Software dialogue may optionally 
be reexecuted. Herdwere perameters may not be changed. 

‘ 


2.4.4 Proceed Command - 
$6606066060006 060606 0600060000000060000000060060600000000. 26460806 


PROCCEED)/FLAGS : <FLAG-LIST> 
CESSES OEEESEESEEEERES SEEDS SE REESERESESEEEEEEEEESEEEEEEES 


2.4.4.1 Flegs Switch (/FLAGS:<FLAG-LIST>) - 


<FLAG-LIST> Is eas in the start commend, but unspecified 
flegs retain their current velue. 


2.4.4.2 Effect Of Proceed Commend - 


Proceed aust follow e stert, restert, or continue. 
Commend mode must heave been entered vie e halt on error. 
The effect of the command is to begin execution at the 
locetion following the error cell. Neither herdwere nor 
softwere peremeters may be eltered. . 


2.4.5 Add Commend - 
$6666600060000600660660000000600606060000600066606000000000 4006 


ADD/UNITS : <UNIT-LIST> 
0806000 6060000060 6000 00000000000000060000060000000000000086 


2.4.6 EFFECT OF ADD COMMAND - THE UNITS SPECIFIED ARE ADDED 
TO THE TEST SEQUENCE. EACH UNIT MUST HAVE A P-TABLE IN 
MEMORY DUE TO AN EARLIER HARDWARE DIALOGUE. THIS COMMAND 
MUST BE FOLLOWED BY A RESTART OR CONTINUE. THE UNITS SWITCH 
MUST BE SPECIFIED. THE ADD COMMAND IS MEANINGFUL ONLY FOR 
UNITS THAT WERE PREVIOUSLY DROPPED. 
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2.4.7 Orop Commend - 


PIP rrrrrrrririiririiiiirititiiii iit i TTT tT 
DROCP )/UNITS: <UNIT-LIST> 
POPPI PIP riririiiriririritiiiiiiriritiitiTTiTiTT 


2.4.8 EFFECT OF DROP COMMAND - THE UNITS SPECIFIED WILL BE 
DROPPED FROM TESTING. THE UNITS WILL BE RESELECTED ONLY BY 
THE EXECUTION OF AN ADD OR START COMMAND. THE UNITS SWITCH 
MUST BE ENTERED. THIS COMMAND MUST BE FOLLOWED BY A RESTART 
OR A CONTINUE COMMAND. 


2.4.9 Print Commend - 

000060006 000006 00006006060000000600000000606000000600000040068 
PRICNT) 

$0600 0600000600 000066000000660040066000000000000 6460000 4h 0008 


2.4.9.1 Effect Of Print Command - Error summary reporting 
is not implemented in this diagnostic, so this command hes 
no effect. 


2.4.10 Display Command - 
$0666 0660666606 6660606006 06 066606606600060066 600060046 446044464006 


DIS(PLAY)/UNITS:<UNIT-LIST> 
PEEP PPT rir irrivivititritttiitititiiTTTT TTT TTT" 


2.4.10.1 Effect Of Display Command - 


The hardware P-Tables for all units are printed in the 
format in which they were entered. 


2.4.11 Flegs Command - 
SESE SSEEAESEEKESEEEASEEEESEEASEACEESAEEEEEEAEEESELERERALHLS 


FLACGS) 
SOCEEESEESEEERESESEEAEERE SESE EEEEAEEEEREREREDEEEEEE DREADED 


2.4.11.1 Effect Of Flags Command - 
The current settings of all flags er: printed. 
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2.4.12 Zflegs Command - 
SOKA SASSEKSESSAAEAAKAASAKKASSHEKAKASHEEEKEEKERERERERESEEEA 


ZFLCAGS ) 


0066000000000 66 0000 00000060060 0600060006000 60046060666060606660008 


2.4.13 Zflags Command - 
All: flees ere cleared. 


2.4.14 Control Cherecters - 


C A control/C (C) entered during the execution of a 
diagnostic ceuses a return to command mode. 


Z A control/Z (2Z) entered duri one of the two 
operator dialogues-- hardware -Table dialogue or 
software P-Table dialogue causes the defaults to be 
taken for the remainder of that dialogue. 


O A control/0 (0) entered during the execution of a 
diagnostic ceuses all teletype output to be 
surpressed for the remainder of the diagnostic or 
until another control/0 is typed, which restores 
normal teletype output. 





SEQ 0015 
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2.5 HARDWARE QUESTIONS 


WHEN A DIAGNOSTIC IS STARTED, THE RUNTIME SERVICES WILL PROMPT THE 
USER FOR HARDWARE INFORMATION BY TYPING “CHANGE HW (L) ?” YOU MUST 
ANSWER “Y" AFTER A START COMMAND UNLESS THE HAROWARE INFORMATION HAS 
BEEN “PRELOADED” USING THE SETUP UTILITY (SEE CHAPTER 6 OF THE XXDP+ 
USER'S MANUAL). WHEN YOU ANSWER THIS QUESTION WITH A “Y”, THE RUNTIME 
SERVICES WILL ASK FOR THE NUMBER OF UNITS CIN DECIMAL). YOU WILL THEN 
BE ASKED THE FOLLOWING QUESTIONS FOR EACH UNIT: 


i. CSR ADDRESS - This question requests the CSR address of the 
specified DHV11-M. The default answer for this question is the 
lowest address in the PDP-11 ha et eddress space in which 
e OHV11-M can be placed (160460 Octal). 


2. INTERRUPT VECTOR ADDRESS - This question requests the 
interrupt vector address of the specified DHV11-M. 


3. ACTIVE LINES BIT MAP - This question requests an octel bit 
map of the serial communication lines on the DHV11-M which are 
being selected for testing. If the bit in the bit map is set 
which corresponds to e particular line (i.e. bit 3 for line 
3) that line will be tested by the FVT. With staggered 
loopbeck a pair of lines with the specified transmit line and 
another receive line will be tested. Therefore, to guarantee 
thet both the transmitter and receiver of a specified line 
ere tested when — the staggered loopback connector, both 
the intended line AND its mate must be selected (ie. to test 
line 1, select both line 1 and line 3). In nonstaggered 
testing, ea bit in the active lines bit map selects the 
transmitter and receiver for the same line. 


4. TYPE OF LOOPBACK (1=INTERNAL, 2*H3277, 3=H325, 4=MODEM, 
S=KEYBOARD ECHO) - This question requests the type of 
loopback to be used in testing the DHV11-M. The following 
types of loopback are supported: 


© INTERNAL - Only internal UART loopback is to be used in 
testing the DHV. 


© 3277 - Staggered Berg connector(s) are installed at the 
end of the 40 wire cables in place of the DHV11-M 
distribution panels. 


© H325 - Single line, 25 pin loopback connectors (type 
H325) are installed on the lines to be tested. These 
connectors can be installed on the distribution panel or 
on the end of the terminal or modem cable. The H325 
connectors must have the removable jumpers installed. 


o MODEM - The operator is allowed to set up a modem link 
end then perform a transmission and reception test at a 
single baudrate with the modem control signals DTR and 
RTS active. This testing is performed in test 5 which is 
e@ special test. All other tests are performed in 
internal loopback. 





SEQ 0016 
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© KEYBOARD ECHO - The UARTs on the DUT are placed in remote 
1 k, Terminals (or other communications equipment) 
will have whatever they transmit to the DHV looped back 
to them. 


5S. BR Level - This questions requests the interrupt BR level of 
the DHV11-M. 


2.6 SOFTWARE QUESTIONS 


AFTER YOU HAVE ANSWERED THE HARDWARE QUESTIONS OR AFTER A RESTART OR 
CONTINUE COMNAND, THE RUNTIME SERVICES WILL ASK FOR SOFTWARE 
PARAMETERS. THESE PARAMETERS WILL GOVERN SOME DIAGNOSTIC SPECIFIC 
OPERATION MODES. YOU WILL BE PROMPTED BY “CHANGE SW (L) 2?” IF You 
WISH TO CHANGE ANY PARAMETERS, ANSWER BY TYPING “Y”. The following 
Software P-Table questions ere asked by the program if the operator 
indicates that the Software Parameters are to be changed: 


1. REPORT UNIT NUMBER AS EACH UNIT IS TESTED - This question 
asks whether the program should report the number of the unit 
which it is testing as it begins to test each unit. 


2. NUMBER OF INDIVIDUAL DATA ERRORS TO REPORT ON A LINE - This 
question asks for the number of data errors which should be 
reported individually by this program for each line for each 
transmission test. Errors which are not reported 
individually are reported in summary error reports. 


3. REPORT NUMBER OF BITS TESTED IN DMA ADDR TEST - This 
questions asks whether the operator wants a printout 
describing which address bits have been tested when the DMA 
Addressing Test (test 4) executes. - 





SEQ 0017 
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2.7 EXTENDED P-TABLE DIALOGUE 


WHEN YOU ANSWER THE HARDWARE QUESTIONS, YOU ARE BUILDING ENTRIES IN A 
TABLE THAT DESCRIBES THE DEVICES UNDER TEST. THE SIMPLEST WAY TO 
BUILD THIS TABLE IS TO ANSWER ALL QUESTIONS FOR EACH UNIT TO BE 
TESTED. IF YOU HAVE A MULTIPLEXED DEVICE SUCH AS A MASS STORAGE 
CONTROLLER WITH SEVERAL DRIVES OR A COMMUNICATION DEVICE WITH SEVERAL 
LINES, THIS BECOMES TEDIOUS SINCE MOST OF THE ANSWERS ARE REPETITIOUS. 


TO ILLUSTRATE A MORE EFFICIENT METHOD, SUPPOSE YOU ARE TESTING A 
FICTIONAL DEVICE, THE XY11. SUPPOSE THIS DEVICE CONSISTS OF A CONTROL 
MODULE WITH EIGHT UNITS (SUB-DEVICES) ATTACHED TO IT. THESE UNITS ARE 
DESCRIBED BY THE OCTAL NUMBERS 0 THROUGH 7. THERE IS ONE HARDWARE 
PARAMETER THAT CAN VARY AMONG UNITS CALLED THE Q-FACTOR. THIS 
Q-FACTOR MAY BE © OR 1. BELOW IS A SIMPLE WAY TO BUILD A TABLE FOR 
ONE XY11 WITH EIGHT UNITS. 
@ UNITS (D) ? 8<CR> 


UNIT 1 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE @ (0) ? O<CR> 
Q-FACTOR (0) 0 ? 1<CR> 


UNIT 2 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE @ (0) ? 1<CR> 
Q-FACTOR (0) 1 ? O<CR> 


UNIT 3 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE @ (0) ? 2<CR> 
Q-FACTOR (0) 0 ? <CR> 


UNIT 4 ‘ 
CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE # (0) ? 3<CR> 
Q-FACTOR (0) 0 ? <CR> 


UNIT 5 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE @ (0) ? 4<CR> 
Q-FACTOR (0) 0 ? <CR> 


UNIT 6 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE @ (0) ? 5S<CR> 
Q-FACTOR (0) 0 ? <CR> 


UNIT 7 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE @ (0) ? 6<CR> - 
Q-FACTOR (0) 0 ? 1<CR> 


UNIT 8 
CSR ADDRESS (0) 160000<CR> 
SUB-DEVICE #@ (0) ? 7<CR> 


SEQ 0018 
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Q-FACTOR (0) 1? <CR> 
NOTICE THAT THE DEFAULT VALUE FOR THE Q-FACTOR CHANGES WHEN A 
NON-DEFAULT RESPONSE IS GIVEN. BE CAREFUL WHEN SPECIFYING 
MULTIPLE UNITS! 


AS YOU CAN SEE FROM THE ABOVE EXAMPLE, THE HARDWARE PARAMETERS 


DO NOT VARY SIGNIFICANTLY FROM UNIT TO UNIT. THE PROCEDURE SHOWN IS 


NOT VERY EFFICIENT. 


THE RUNTIME SERVICES CAN TAKE MULTIPLE UNIT SPECIFICATIONS HOWEVER. 
a THE SAME TABLE USING THE MULTIPLE SPECIFICATION 


@ UNITS (D) ? 8<CR> 


UNIT 1 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE @ (0) ? 0,1<CR> 
Q-FACTOR (0) 0 ? 1,0<CR> 


UNIT 3 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE @ (0) ? 2-5<CR> 
Q-FACTOR (0) 0 ? O<CR> 


UNIT 7 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE @ (0) ? 6,7<CR> 
Q-FACTOR (0) 0 ? 1<CR> 


AS YOU CAN SEE IN THE ABOVE DIALOGUE, THE RUNTIME SERVICES WILL 
BUILD AS MANY ENTRIES AS IT CAN WITH THE INFORMATION GIVEN IN ANY 
ONE PASS THROUGH THE QUESTIONS. IN THE FIRST PASS, TWO ENTRIES 
ARE BUILT SINCE TWO SUB-DEVICES AND Q-FACTORS WERE SPECIFIED. THE 
SERVICES ASSUME THAT THE CSR ADDRESS IS 160000 FOR BOTH SINCE IT 
WAS SPECIFIED ONLY ONCE. IN THE SECOND PASS, FOUR ENTRIES WERE 
BUILT. THIS IS BECAUSE FOUR SUB-DEVICES WERE SPECIFIED. THE 

“-" CONSTRUCT TELLS THE RUNTIME SERVICES TO INCREMENT THE DATA 
FROM THE FIRST NUMBER TO THE SECOND. IN THIS CASE, SUB-DEVICES 
2, 3, 4 AND 5 WERE SPECIFIED. (IF THE SUB-DEVICE WERE SPECIFIED 
BY ADDRESSES, THE INCREMENT WOULD BE BY 2 SINCE ADDRESSES MUST 
BE ON AN EVEN BOUNDARY.) THE CSR ADDRESSES AND Q-FACTORS FOR 
THE FOUR ENTRIES ARE ASSUMED TO BE 160000 AND 0 RESPECTIVELY 
SINCE THEY WERE ONLY SPECIFIED ONCE. THE LAST TWO UNITS ARE 
SPECIFIED IN THE THIRD PASS. 


THE WHOLE PROCESS COULD HAVE BEEN ACCOMPLISHED IN ONE PASS AS 
SHOWN BELOW. 


# UNITS (0) ? 8<CR> 
UNIT 1 
CSR ADDRESS (0) ? 160000<CR> 


SUB-DEVICE # (0) ? 0-7<CR> 
Q-FACTOR (0) 0 ? 0,1,0,,,,1,1<CR> 





SEQ 0019 
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AS YOU CAN SEE FROM THIS EXAMPLE, NULL REPLIES (COMMAS ENCLOSING 
A NULL FIELD) TELL THE RUNTIME SERVICES TO REPEAT THE LAST REPLY. 


p— 









SEQ 0020 
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2.8 QUICK START-UP PROCEDURE (XXDP+) 
TO START-UP THIS PROGRAM: 
1. BOOT XXDP+ 


2. GIVE THE DATE AND ANSWER THE LSI AND SOHZ CIF THERE 
IS A CLOCK AND THE QUESTION IS ASKED) QUESTIONS 


3. TYPE “R NAME”, WHERE NAME IS THE NAME OF THE BIN OR 
BIC FILE FOR THIS PROGRAM 


TYPE “START” 
ANSWER THE “CHANGE HW” QUESTION WITH “Y” 
ANSWER ALL THE HARDWARE QUESTIONS 
7. ANSWER THE “CHANGE SW” QUESTION WITH “N” 
WHEN YOU FOLLOW THIS PROCEDURE YOU WILL BE USING ONLY THE DEFAULTS FOR 


FLAGS AMD SOFTWARE PARAMETERS. FOR DEFAULT INFORMATION SEE THE 
SECTIONS WITHIN THIS DOCUMENT ON FLAGS,AND HARDWARE QUESTIONS. 


SEQ 0021 


oo vu 


3.0 ERROR INFORMATION 
3.1 TYPES OF ERROR MESSAGES 


THERE ARE THREE LEVELS OF ERROR MESSAGES THAT MAY BE ISSUED BY 

A DIAGNOSTIC: GENERAL, BASIC AND EXTENDED. GENERAL ERROR MESSAGES 
ARE ALWAYS PRINTED UNLESS THE “IER” FLAG IS SET (SEE THE FLAGS SECTION 
OF THIS DOCUMENT). 


THE GENERAL ERROR MESSAGE IS OF THE FORM: 


NAME TYPE NUMBER ON UNIT NUMBER TST NUMBER PC:XXXXXX 
ERROR MESSAGE 


»WHERE; NAME = DIAGNOSTIC NAME 
TYPE = ERROR TYPE (SYS FATAL, DEV FATAL, HARD OR SOFT) 
NUMBER = ERROR NUMBER 
UNIT NUMBER = 0 - N (N IS LAST UNIT IN PTABLE? 
TST NUMBER = TEST AND SUBTEST WHERE ERROR OCCURRED 
PC:XXXXXX = ADDRESS OF ERROR MESSAGE CALL 


BASIC ERROR MESSAGES ARE MESSAGES THAT CONTAIN SOME ADDITIONAL 
INFORMATION ABOUT THE ERROR. THESE ARE ALWAYS PRINTED UNLESS 
et OR “IBR” FLAGS ARE SET (SEE THE FLAGS SECTION OF THIS 
THESE MESSAGES ARE PRINTED AFTER THE ASSOCIATED GENERAL MESSAGE. 


EXTENDED ERROR MESSAGES CONTAIN SUPPLEMENTARY ERROR INFORMATION 
SUCH AS REGISTER CONTENTS OR GOOD/BAD DATA. THESE ARE ALWAYS 
PRINTED UNLESS THE “IER”, “IBR” OR “IXR” FLAGS ARE SET (SEE THE 





— 
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FLAGS SECTION OF THIS DOCUMENT). 
THESE MESSAGES ARE PRINTED AFTER THE ASSOCIATED GENERAL ERROR 
MESSAGE AND ANY ASSOCIATED BASIC ERROR MESSAGES. 


3.2 ERROR MESSAGES 


This program is intended to provide a go/no-go indication of the 

functionality of DHV11-M boards. To execute the program in this mode 
the operator can run with the inhibit basic error reporting switch. 

In this mode the program prints error messages which contain the error 

message header described above, plus the name of the failing test. 

For a list of the test names in this program see the test summaries 

section of this document. An example of such an error message is the 

following: 


CVDHC DVC FTL ERR 01603 ON UNIT 02 TST 015 SUB 000 PC: 015244 
DEVICE REGISTER WORD READ/WRITE TEST 


This error indicates that a fatel error was encountered within the 
test which tests the read/write capability of the DHV11-M registers. 


If the operator requires more extensive error reporting he can run 
with all error reporting enabled by not using the inhibit reporting 
switches. The above error message would then become the following: 


CVDHC DVC FTL ERR 01603 ON UNIT 02 TST 015 SUB 000 PC: 015244 
DEVICE REGISTER WORD READ/WRITE TEST 
BAD BITCS) IN DEVICE TBUFFAD1 REGISTER FOR LINE 7 (D). 
EXPECTED DATA: 000000 (0). 
ACTUAL DATA: 000023 (0). 





SEQ 0022 


rT ]—_- 
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4.0 PERFORMANCE AND PROGRESS REPORTS 
AT THE END OF EACH PASS, THE PASS COUNT IS GIVEN ALONG WITH THE TOTAL 


NUMBER OF ERRORS REPORTED SINCE THE DIAGNOSTIC WAS STARTED. THE “EOP” 
SWITCH CAN BE USED TO CONTROL HOW OFTEN THE END OF PASS MESSAGE IS 


ans 


PRINTED. 
DOCUMENT. 


FOR FUTHER INFORMATION SEE THE SWITCHES SECTION OF THIS 


5.0 TEST SUMMARIES 
The following tests are included within CVDHC: 


1. 


10. 





Device register address test - Verifies that the UUT 
registers will respond witht the proper Q-BUS handshak ing 
when accessed. Verifies that the UUT is at the proper 
address. 


FRAMING.ERROR test - Verifies that forced framing errors are 
reported correctly. 


PARITY.ERROR test - Verifies that forced parity errors are 
reported correctly. 


DMA Addressing test - Verifies that the UUT can access the 
full memory which is on the host machine via DMA accesses. 


Modem Loopback test - Allows the operator to test modem links 
which ere attached to UUT serial ports. 


Terminal Echo test - Allows the operator to test terminal 
links (Cor other communication links), which are attached to 
UUT serial ports, from the remote ends of the Links. 


Single character mode TX/RX test - Verifies that the UUT will 
TX and RX date correclty in single character mode. 


DMA mode TX/RX test - Verifies that the UUT will TX and RX 
data correctly using DMA transmission. 


Split speed test - Verifies that the UUT will work with 
different TX and RX speeds on each active line. 


Report BMP codes test - This pseudo test reports the first 32 
BMP codes which were discovered in the FIFO during the 
execution of the other tests. This avoids the interruption 
of other tests by these codes, if they are not critical to 
the tests being performed. 





SEQ 0023 





—_— 
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6.0 EXAMPLE ERROR FREE PASS 

6.1 Pass With Default Parameters 

The following is an example of an error free pass dialogue using a 

standard loopback: 

-R CVDHCCO 

CVDHCCO .BIC 

ORS 

CVDHC-C-0 

DHV11-M FUNC TST PART 3 

UNIT IS DOHV11-M 

RESTART ADDR: 147670 

OR>STA 

CHANGE HW (L) ? Y 


@ UNITS (0) ?2 


UNIT 0 
CSR ADDRESS: (0) 160460 ? tZ 
UNIT 1 
CSR ADDRESS: (0) 160460 ? 160040 
INTERRUPT VECTOR ADDRESS: (0) 300 ? 320 
ACTIVE LINE BIT MAP: (0) 377 ? <CR> 
TYPE OF LOOPBACK (i*INTERNAL, 2*H3277, 3*H325, 

4=MODEM, S*KEYBOARD ECHO): (0) 271 
INTERRUPT BR LEVEL: (0) 4? <CR> 
CHANGE SW(L) 7? Y 
REPORT UNIT NUMBER AS EACH UNIT IS TESTED: (L) Y ? <CR> 
NUMBER OF INDIVIDUAL DATA ERRORS TO REPORT ON ALINE: (D) 074 
REPORT NUMBER OF BITS TESTED IN DMA ADDRE TEST: (L)N? Y 
TESTING UNIT : OCD) 
DMA ADDRESS TEST SUCCESSFUL, BITS 0 TO 18 TESTED (19 BITS). 
TESTING UNIT : 1(D) 
DMA ADDRESS TEST SUCCESSFUL, BITS 0 TO 18 TESTED (19 BITS). 


CvOHC EOP 1 
O CUMULATIVE ERRORS 


aes UNIT : OCD) 
t 
OR> EXIT 








SEQ 0024 
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6.2 Pass With Modem Loopback 


The following is an example of an error free pass dialogue with Modem 
Loopbeck selected: 

-R CVDHCCO 

CvOHCCO.BIC 





ORS 

CVDHC -C-0 

OHV11-M FUNC TST PART 3 
UNIT IS DHV11-M 
RESTART ADDR: 147670 
OR>STA 


CHANGE HW (L) 7? Y 
@ UNITS (0) 71 
UNIT 0 
CSR ADDRESS: (0) 160460 ? <CR> 
INTERRUPT VECTOR ADDRESS: (C0) 300 ? <CR> 
ACTIVE LINE BIT MAP: (0) 37775 
TYPE OF LOOPBACK Ci=sINTERNAL, 2*H3277, 3*H325, 
4=*MODEM, S=KEYBOARD ECHO): (0) 27 4 
INTERRUPT BR LEVEL: (0) 4? <CR> 
CHANGE SW (L) ?.N 
EXECUTING THE MODEM LOOPBACK TEST 
MODEM BAUDRATE IN BPS: (D) 1200 ? 2400 
TYPE <CR) WHEN MODEM LINK ESTABLISHED: (L) Y ? 
MODEM STATUS SIGNAL REPORT: 
LINE @ 0: OSR=1, RI*1, OCD*1, CTS=1 
LINE @ 2: OSR=1, RI*1, OCD=1, CTS=1 . 


NUMBER OF 256 BYTE PATTERNS TO SEND ON EACH SELECTED LINE 
(1-255, O=SEND UNTIL tC): (0) 172 


PRINT MODEM STATUS SIGNAL REPORT AFTER EACH PATTERN: (L) Y ?.N 


MODEM LOOPBACK TEST STATUS REPORT: PATTERN ° 1 (0) COMPLETED. 
MODEM LOOPBACK TEST STATUS REPORT: PATTERN @ 2 (0) COMPLETED. 


EXIT THE TEST (N = LOOP BACK TO SEND MORE DATA): (L) Y ? <CR> 


CVvOHC EOP 1 
© CUMULATIVE ERRORS 


EXECUTING THE MODEM LOOPBACK TEST 
MODEM BAUDRATE IN BPS: (D) 1200 ? tC 
OR> EXIT 
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6.3 Pass With Keyboard Echo 


The following is en exemple of an error free pess dialogue with 
Keyboerd Echo Loopback selected: 

-R CVDHCS° 

CVDHCCO.BIC 

ORS 

CVDHC-C-0 

OHV1i1-M FUNC TST PART 3 

UNIT IS DHV11-M 


RESTART ADDR: 147670 
DOR>STA 


CHANGE HW (L) 7? Y 

@ UNITS (0) 71 

UNIT 0 

CSR ADDRESS: (0) 160460 ? <CR> 

INTERRUPT VECTOR ADDRESS: (0) 300 ? <CR> 

ACTIVE LINE BIT MAP: (0) 377 ? <CR> 

TYPE OF LOOPBACK CisINTERNAL, 2°H3277, 3=H325, 
4=MODEM, S*KEYBOARD ECHO): (0) 275 

INTERRUPT BR LEVEL: (0) 4? <CR> 

CHANGE SW (L) ?N 

EXECUTING THE KEYBOARD ECHO (DHV REMOTE LOOPBACK) TEST 

MODEM BAUDRATE IN BPS: (D0) 1200 ? 9600 

TYPE <CR> TO TERMINATE THE TEST: (L) Y ? <CR> 


CvOHC EOP 1 
© CUMULATIVE ERRORS 


EXECUTING THE KEYBOARD ECHO (OHV REMOTE LOOPBACK) TEST 
MODEM BAUDRATE IN BPS: (D) 1200 ? tC 


DR> EXIT 
; é 
1170 .LIST SEQ,LOC,B8IN,MEB 
1171 000000 ° ABS, AMA,LC 
1172 “NLIST CND 
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1174 


000000 
002000 
002000 


002000 


002000 
002000 
002000 103 
002001 126 
002002 104 
002003 110 
002004 103 
002005 000 
002006 000 
002007 000 
002010 
002010 104 
002011 
002011 060 
002012 
002012 000000 





SS SS RE 














SEQ 0027 


3 dad ahatabatabaiahatabaialailninlslnininininlnininininininininininininisinisiniainnisuisinisiininaicskict ET 
i 


’ VOHC .PHO 

3 

 Sddddegddddidadddad LL lhalalalalailaitaistaisiininininii iii iret TL TiC ett ttt Titi titi tT TT trey 
-SBTTL Program Header 


-MCALL SVC 
svc s INITIALIZE SUPERVISOR MACROS 


th dalahataladahatadadabaiababahatabainieiainiaiaiaininiataiaiaiaaiaapiaaiaiamuiainmeeinaiiicce EO 
; IF STRUCTURED MACROS ARE TO BE USED, ADD “.MCALL STRUCT” AND “STRUCT” 
‘ TO INITIALIZE THE STRUCTURED MACROS. 


SVCINS= 1 s LIST INSTRUCTIONS, SHIFTED RIGHT 
SVCTST= 1 s LIST TEST TAGS, SHIFTED RIGHT 
SVCSUB= 1 ; LIST SUBTEST TAGS, SHIFTED RIGHT 
SVCGBL= 1 s LIST GLOBAL TAGS, SHIFTED RIGHT 
SVCTAG= 1 ; LIST OTHER TAGS, SHIFTED RIGHT 


; CHANGE THE VALUES OF THE SVC... SYMBOLS TO BE ZERO IF YOU WISH 

; TO ALIGN THE MACRO CALLS AND THEIR EXPANSIONS. CHANGE THE 

; SYMBOLS TO BE MINUS-ONE TO NOT LIST THE EXPANSIONS. YOU MAY 

; CHANGE THE SYMBOLS AT ANY POINT IN YOUR PROGRAM. 

3 hated ataladahatalaiglninisiniatininisininininiginisininiicisisissiuuiei i hii tt tT tT ttt tL ttt TL Teeny 


-ENABL ABS 
;.ENABL AMA 
. s 2000 
BGNMOD 


ioe 
; THE PROGRAM HEADER IS THE INTERFACE BETWEEN 
; THE DIAGNOSTIC PROGRAM AND THE SUPERVISOR. 


POINTER BGNRPT ,BGNSW,BGNSF T,BGNOU, ERRTBL 


HEADER CVDHC,D,0,200,0,PRIO7 
LSNAME:: 


LSREV:: 
L$DEPO:: 
LS$UNIT::_ 
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000000 
005366 
030114 
000000 
000000 
000000 
031024 
000000 
005376 
104035 
005316 





LS$TIML:: 
LSHPCP:: 


- WORD 
L$SPCP:: 

WORD 
LSHPTP:: 

WW 
L$SPTP:: 

. WORD 
LS$LADP: : 


- WORD 
L$STA:: 
- WORD 


L$CO:: 


- WORD 
LSOTYP:: 


LSAPT:: | 


- WORD 


L$DTP:: 


WORD 
L$PRIO:: 

.WOR 
LSENVI:: 

.WOR 
LSEXP1:: 


. WORD 
LSMREV:: 

.BYTE 

.BYTE 
LSEF:: 

. WORD 

. WORD 
L$SPC:: 

. WORD 
LSDEVP:: 

WW 
LS$REPP:: 

.WOR 
LSEXP4:; 

. WORD 
LSEXPS:: 
L$AUT:: 

. WORD 
L$DUT:: 

. WORD 
L$LUN:: 

oW 
L$DESP:: 

. WORD 
L$LOAD:: 

EM 
LSETP:: 

WORD 
LSICP:: 





200 
L$HARD 
L$SOFT 
L$HW 
L$SW 
L$LAST 
0 

0 

0 

0 
L$DISPATCH 
PRIO7 
0 

0 


CSREVISION 
CsEDIT 


0 
0 


0 
L$OVTYP 
L$RPT 

0 

0 

0 

L$DU 

0 
L$DESC 
E$LOAD 
LSERRTBL 








re eR A NE 
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1232 


002104 
002106 
002106 
002110 
002110 
002112 
002112 
002114 
002114 
002116 
002116 
002120 
002120 


030130 
030774 
030772 
030122 
000000 
000000 
000000 













LSINIT 
L$CLEAN 


LSCCP:: 


LSACP:: 
L$AUTO 

LSPRT:: 
oW L$PROT 

LSTEST:: 


0 
0 
0 


oW 
LSOLY:: 

oW 
LSHIME:: 
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1251 


1252 


002122 
002122 
002124 
002124 
002126 
002130 
002132 
002134 
002136 
002140 
002142 
002144 
002146 





000012 


031142 
031432 
032004 
032370 
034166 
035060 
035306 
036036 
036646 
037272 





-SBTTL OISPATCH TABLE 


ze 
+ THE DISPATCH TABLE CONTAINS THE STARTING ADDRESS OF EACH TEST. 
; IT IS USED BY THE SUPERVISOR TO DISPATCH TO EACH TEST. 
gs 


DISPATCH 10 


- WORD 
L$DISPATCH: : 
WW 


SEQ 0030 
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002150 
002150 
002152 
002152 


0C2152 
002154 
002156 
002160 
002161 


002162 
002162 





000004 


160460 
000300 
177777 
002 
004 





h datahatahalalatatalalaiginlnlsininininisisininiainininiininiisinininisinii uri tit tt tt tt TTT TT Te RT ry 


: 
3 VOHC . DHT 


é 
Sh adatadatalatalalalaiataiabaialaiadaialsiiaiinilnininininininininiginininisinininininisinigigiiiuiii iii tt tT TTL RET RE EE 


. 


‘ 


-SBTTL DEFAULT HARDWARE P-TABLE 


3+ 
; THE DEFAULT HARDWARE P-TABLE CONTAINS DEFAULT VALUES OF 
; THE TEST-DEVICE PARAMETERS. THE STRUCTURE OF THIS TABLE 
; IS IDENTICAL TO THE STRUCTURE OF THE HARDWARE P-TABLES, 
; AND IS USED AS A “TEMPLATE” FOR BUILDING THE P-TABLES. 
go 


BGNHW = DFPTBL 


L$HW:: 
OFPTBL:: 

-WORD 160460 ;Default CSR Address 

-WORD 300 ;Default Vector Address 

-WORD- 177777 ;Default Active lines bit map 

-BYTE 2 ;Default Loopback mode 

OYE sDefault BR Level 

ENDHW 


- WORD 








SEQ 0031 


L10000-L $HW/2 
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SEQ 0032 


1287 
1288 3 ehatataiadaladaiedetatetahaininialsialainisinisinisiainiainininininainieianianmamaaaenarianccomccccc EP EP 
s 
1289 : 
roe H VOHC . SWT 
3 
1292 ; Ledatadatabaiahaiahatatataialalainininlsinisininiainininininiaiainisisinisininiainanaatauisanacicicicccee EET 
1293 
1294 
1295 -SBTTL SOFTWARE P-TABLE 
1296 
1297 ioe 
1298 ; THE SOFTWARE TABLE CONTAINS VARIOUS DATA USED BY THE 
1299 ; PROGRAM AS OPERATIONAL PARAMETERS. THESE PARAMETERS ARE 
1300 ; SET UP AT ASSEMBLY TIME AND MAY BE VARIED BY THE OPERATOR 
1301 3; AT RUN TIME. 
1302 a-- 
1303 
1304 002162 BGNSW SFPTBL 
002162 0000C2 -WORD L10001-L$SW/2 
002164 L$SW:: 
002164 SFPTBL:: 
1305 
1306 002164 000020 OPTION: : -WORD 20 sbit map of program control flags 
too. 002166 000000 NDERPT: : -WORD 0 Default number of individual data errors to rpt. 
1309 002170 ENDSW 
002170 L10001: 


p—— 
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SOFTWARE P-TABLE 


— 


1 
1371 002170 


100000 
040000 
020000 
010000 
004000 
002000 
001000 
000400 
000200 
000100 
000040 
000020 


. 000010 


000004 
000002 
000001 


3 ehadadaiabaialatadatalatalataleialsininininilainisiaisinnimiaininininisinainieininnmmmaiaineacsccnccccne En 


VOHC .EQU 
ad adel tahaiahatatalaialalaialsinlainininisainiaininisipinisininisisinininiginininisisisisieinuiciciatti ETT 


-SBTTL GLOBAL EQUATES SECTION 


3+ 


; THE GLOBAL EQUATES SECTION CONTAINS PROGRAM EQUATES THAT 
; ARE USED IN MORE THAN ONE TEST. 


peeeeee 


peeeeee 


NUMLNS==10 


MAPLNS==377 
DEVICE REGISTER 
CSRO==0 


RBUF O==2 
TXCHRO#=2 
LPRO==4 
STATO==6 
LNCTRO==10 
TXAD10==12 
TXAD20==14 
TXBFCO==16 


sNUMBER OF LINES ON DHV11-m IS 8. 
sBIT MAP OF LINES ON DHV11-M. 


OFFSETS FROM THE CSR‘S ADDRESS seeees 

sCSR REGISTER OFFSET FROM THE CSR ADDRESS 

sRECEIVE REGISTER OFFSET FROM THE CSR ADDRESS 

sTRANSMIT REGISTER OFFSET FROM THE CSR ADDRESS 

sLINE PARAMETER REGISTER OFFSET FROM THE CSR ADDRESS 
sSTATUS REGISTER OFFSET FROM THE CSR ADDRESS 

sLINE CONTROL REGISTER OFFSET FROM THE CSR ADDRESS 
sTRANSMIT ADDRESS 1 REGISTER OFFSET FROM THE CSR ADDRESS 
sTRANSMIT ADDRESS 2 REGISTER OFFSET FROM THE CSR ADDRESS 
;TRANSMIT COUNT REGISTER OFFSET FROM THE CSR ADDRESS 


EQUATES USED WITH RESPECT TO THE RX BUFFER seeeee 


RXBETX==16. 
RXBDTX==24, 
RXBF UL ==64, 


EQUALS 


; 
; BIT DIFINITIONS 


; 

BIT15== 
BIT14== 
BIT13== 
BIT12== 
BIT11== 
BIT10== 
BITO9== 
BITO8== 
BITO7== 
BITO6== 
BITOS== 
BITO4== 
BITO3== 
BITO2== 
BITO1== 
BITOO== 


100000 
40000 
20000 
10000 
4000 
2000 
1000 
400 
200 
100 
40 

20 

10 

4 

2 

1 





sLEVEL OF RX BUFFER AT WHICH TO RE-ENABLE TRANSMISSION. 
sLEVEL OF RX BUFFER AT WHICH TO DISABLE TRANSMISSION. 
sTOTAL CHARACTER CAPACITY OF THE RX BUFFER. 










SEQ 0033 
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SEQ 0034 







; 

BIT9*= BITO9 
BIT8== BITO8 
BIT7== BIT07 
BIT6== BITO6 
BITS== BITOS 
BIT4== BITO4 
BIT3== BITO3 
BIT2== BIT02 
BITi== BITO1 
BITO== BITOO 


; 
; EVENT FLAG DEFINITIONS 
+  EF32:EF17 RESERVED FOR SUPERVISOR TO PROGRAM COMMUNICATION 


; 
; s BIT POSITION IN SECOND STATUS WORD 
EF .START== 32. s €100000) START COMMAND WAS ISSUED 

; 




























EF .RESTART== 31. (040000) RESTART COMMAND WAS ISSUED 
EF .CONTINUE== 30. s €020000) CONTINUE COMMAND WAS ISSUED 
EF .NEW== 29. s (010000) A NEW PASS HAS BEEN STARTED 
EF .PWR== 28. s (004000) A POWER-FAIL/POWER-UP OCCURRED 





; 
; PRIORITY LEVEL DEFINITIONS 


° 

PRIO7== 340 
PRIO06== 300 
PRIOS== 240 














PRI04== 200 
PRIO3== 140 
PRIO2== 100 
PRIO1== 40 
PRIOO== 0 

; 

sOPERATOR FLAG BITS 
; 

EVL== 4 
LOT== 10 
ADR== 20 
IDU== 40 
ISR== 100 
UAM== 200 
BOE== 400 








PNT== 1000 
PRI== 2000 
IXE== 4000 
IBE== 10000 
IER== 20000 
LOE== 40000 
HOE== 100000 
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— 


1394 
1395 


002170 
002172 
002174 
002176 
002177 
002200 


002202 
002202 
002204 
002206 
002210 
002212 
002214 
002216 
002220 


002222 
002224 
002226 
002230 
002232 
002234 
002236 
002240 
002242 
002244 
002246 
002250 
002252 
002254 








Fh hatahatalalalatalalalsinlainiaalsininisininiininininiainisinininninisaniinii iui ie tt tt tt ht TT TT RTT 
: 

; VOHC .GDT 

; 

Fh badadalalaiahatalalnlaiaiainlsininininininininisiinisiiiiiiuuii init tT tit tit tt tit tt tT TT TTT PTE en 


-SBTTL GLOBAL DATA SECTION 


3+ 
; THE GLOBAL DATA SECTION CONTAINS DATA THAT ARE USED 
; IN MORE THAN ONE TEST. 

g7-° 


§REEEEEEEEEEEEEEEEEEESEEEEEEEEEEEEES OD OEEEEEEEEDODEDED ES 1EEEEDEDEDEDEEE 
; Unit Varible Area 
fRESSEEEREAASESEESEEEEEEEEEEEEEEEEEEEEES OOOEESEEEDDEEEEEEEEEREEEDEREREEE 


RXVECA:: .WORD 300 sRX VECTOR ADDRESS. 
TXVECA:: .WORD 304 sTX VECTOR ADORESS. 
ACTLNS:: .WORD 377 sACTIVE LINE BIT MAP. 


LOPBCK:: .BYTE 0 sLOOPBACK MODE 
BRLEVL:: .BYTE 4 sINTERRUPT BUS REQUEST LEVEL 
UNITN:: .WORD 0 sUNIT NUMBER. ; 
{HORSE EEEEEEEEE EE EE EEE EEE EERE ESOS EOS OS OS OSES OOOO EREEEREEEREEEREEE 
; Device Register Address Table 
Daca eeadadededeeehete tebe e itt t ti tit ttt ttt TTT TT TTT TTT Te TT TT Te Te 
DRADRT: : 


CSRA:: .WORD 160000 ;DHV11-M CSR ADDRESS 

TXCHA:: RBUFA:: .WORD 160002 ;DHV11-M RECEIVE/TRANSMIT BUFFER ADDRESS 
LPRA:: .WORD 160004 ;DHV11-M LINE PARAMETER REGISTER ADDRESS 
STATA:: .WORD 160006 ;DHV11-M STATUS REGISTER ADDRESS 
LNCTRA:: .WORD 160010 ;DHV11-M LINE CONTROL REGISTER ADDRESS 
TXAD1A:: .WORD 160012 ;DHV11-M TRANSMIT BUFFER 1 REGISTER ADDRESS 
TXAD2A:: .WORD 160014 ;DHV11-M TRANSMIT BUFFER 2 REGISTER ADDRESS 
TXBFCA:: .WORD 160016 ;DHV11-M TRANSMIT BUFFER COUNT REGISTER ADORESS 


Dhaene ented Lett TTL TTT TTT TTT TTT TTT TTT TTT TT TTT TTT TTT TTT Ter TT 
Assorted globel veriables: 
FT hacanthaehadadedeptnehtne tee Lhe LLL LL TLL LTT Litt T TT TTT TTT TT TT TTT TTT TTT TTT Tt 


CTRLCF:: .WORD 0 sSTORAGE FOR THE CONTROL-C FLAG. 
TSTNUM:: .WORD 1 sSTORAGE FOR THE TEST NUMBER. 
IBM: : -WORD 0 sINACTIVE TX/RX BITS MASK. 


LGRP1M:: .WORD 31463  ;BIT MAP OF LINES IN LINE GROUP I. 
LGRP2M:: .WORD 146314 ;BIT MAP OF LINES IN LINE GROUP ITI. 
IESTAT:: .WORD 0 sSTORAGE FOR STATES OF THE DUT INT ENABLE BITS. 
PASCNT:: .WORD 0 sSTO'G FOR PASS COUNT USED IN ROM VERSION@ TST. 
WORD1:: .WORD sLOCATION FOR PASSING INDIRECT PARAMETERS. 
RXTOUT:: .WORD sTIME-OUT VALUE FOR WAITING FOR LAST RX CHAR. 
SAVTEN:: .WORD sSTORAGE FOR TX.ENABLE STATES, (TXROFF, TXRON). 
SAVPRI:: .WORD sSTO'G FOR PROCESSOR PRIORITY, (TXROFF, TXRON). 
TXENBM:: .WORD sSTORAGE FOR TX.ENABLE STATES, (BUFFER MGM’‘NT). 
TXINTF:: .WORD sSTORAGE FOR TRANSMIT INTERRUPT FLAGS. 
TP4VEC:: .WORD sSTORAGE FOR THE NORMAL 004 TRAP VECTOR. 


ooooooo 




















SEQ 0035 





Se 
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‘eceee 





002256 
002260 


002262 
002264 
002266 
002270 


002272 
002274 
002276 
002300 
002302 
002304 
002306 
002310 
002312 
002314 


002316 
002320 
002322 
002324 


002326 
002326 
002330 
002332 
002334 
002336 
002340 
002342 
002344 
002346 


002346 
002346 
002350 
002352 
002354 
002356 
002360 
002362 
002364 
002366 


002366 
002370 


000000 
177777 


172516 


172340 
172342 
172344 
172346 
172350 
172352 
172354 
172356 


172300 
172302 
172304 
172306 
172310 
172312 
172314 
172316 


000001 
000002 


TP4FLG:: 
BITLNG:: 


FFREM:: 
OMTSTA:: 
GMANWD : : 
PMSFLG:: 


. WORD 
. WORD 


. WORD 
. WORD 
. WORD 
. WORD 


oooo 


Page 33-1 


sFLAGS SET WHEN AN EXPECTED 004 TRAP OCCURS. 
sNUMBER OF BITS HOST USES TO DEFINE A UNIQUE 
sADDR. -1= 16 BITS, O= 18 BITS, i= 22 BITS. 







SEQ 0036 


sSTO'G FOR ADR OF FIRST FREE WORD AFTER THE DIAG‘ TIC 


sSTO'G FOR DMA TEST ADDRESS CIN PAR FORM). 
sWORD FOR GMANxx CALL RETURN PARAMETERS. 
sFLAG INDICATING WHETHER TO PRINT MODEM STATUS. 


FERRERS EEEE SESE EEEEEE ESOS OS OO OEOEEEEE OOS OE OOOO ESOS OD OS EEEREEEEEDEEEDEREREREES 


Line Time Clock variables and storage. 


jPEREEEEEEEE SEED EEEEEEEE ES OE EE ES EEEEEE EE 1S 66 46 6400000604606046400000000044 4840004 


FERRER EEE EEED OSES OE 44464404 4E OOD ODEO EOE EEEEEREEEEEEEEESEEEDEEEERDEEEEEES 


T chhathschtndsepctethcechadbencrenenibntnh ibidad arte ELLE LTT TTT TTT TTT TTT TTT TT Tt tt 
sADDRESS OF MEM MGT STATUS REGISTER 90. 
sADDRESS OF MEM MGT STATUS REGISTER 93. 

sMEM MGT PRESENT FLAG (0 IF MM NOT PRESENT). 
sMEM MGT ENABLED FLAG (O IF MM NOT ENABLED). 


sCSR ADDRESS OF THE LTC. 


sINTERRUPT PRIORITY LEVEL OF THE LTC. 
sINTERRUPT VECTOR ADDRESS OF THE LTC. 


sINTERRUPT FREQUENCY OF THE LTC. 
sHARDWARE CLOCK COUNTER #1. 
sHARDW4RE CLOCK COUNTER ¢2. 
sHARDWARE BREAK COUNTER LOCATION. 
sBREAK COUNT VALUE IN CLOCK TICKS. 


sNUMBER OF MILLI-SECONDS PER LTC TICK. 
sLOOP COUNT (USED BY MSLOOP) TO DELAY 1 MS. 


sBASE OF MEM 
sADDRESS OF 
sADDRESS OF 
sADDRESS OF 
sADDRESS OF 
sADDRESS OF 
sADDRESS OF 
sADDRESS OF 
sADDRESS OF 
sEND OF PAR 


MGT PAR Sa TABLE. 


MEM MGT P 


MEM MGT 
MEM MGT 
MEM MGT 
MEM MGT 
MEM MGT 
MEM MGT 
MEM MGT 
ADDRESS 


R #0. 
PAR #1. 
PAR @2. 
PAR #3. 
PAR 04. 
PAR #5. 
PAR 06. 
PAR #7. 
TABLE. 


sBASE OF MEM MGT PDR ADDRESS TABLE. 
DR #0. 


sADDRESS OF 
sADDRESS OF 
sADDRESS OF 
sADDRESS OF 
sADDRESS OF 
sADORESS OF 
sADDRESS OF 
sADORESS OF 


MEM MGT P 


MEM MGT 
MEM MGT 
MEM MGT 
MEM MGT 
MEM MGT 
MEM MGT 
MEM MGT 


CLKCSR:: .WORD 177546 
CLKBRL:: .WORD PRIO6 
CLKVEC:: .WORD 100 
CLKHRZ:: .WORD 60. 
TIMER1:: .WORD 0 
TIMER2:: .WORD 0 
TIMER3:: .WORD 120. 
BCOUNT:: .WORD 120. 
MSTICK:: .WORD 17. 
MSLCNT:: .WORD 62 

H Memmory Management Variables and Flags. 
MMSRO:: .WORD 177572 
MMSR3:: .WORD 172516 
MMPRES:: .WORD 0O 
MMENAB:: .WORD 0O 

PARATB:: 
PAROA:: .WORD 172340 
PARIA:: .WORD 172342 
PAR2A:: .WORD 172344 
PAR3SA:: .WORD 172346 
PAR4A:: .WORD 172350 
PARSA:: .WORD 172352 
PAR6A:: .WORD 172354 
PAR7A:: .WORD 172356 

PARATE:: 

PDRATB: : 
PDOROA:: .WORD 172300 
PORIA:: .WORD 172302 
PDR2A:: .WORD 172304 
POR3SA:: .WORD 172306 
POR4A:: .WORD 172310 
PORSA:: .WORD 172312 
POR6A:: .WORD 172314 
POR7A:: .WORD 172316 

PDRATE:: 


§OO8O6606066600666006 666606 600460600066000460006046000000000640000460006400004 40004 
F Table of words with corresponding bit set for generation of bit maps. 
§ ORE 46 64604660606606664646608 660600000000 6060066606064000406666400604046404484464 644 


BITTBL:: .WORD 1 
«WORD 2 


sEND OF MEM 


sBIT O SET. 
sBIT 1 SET. 


MGT POR 


POR #1. 
POR #2. 
POR #3. 
POR 04. 
POR #5. 
POR #6. 
POR #7. 
ADDRESS TABLE. 
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1488 


te 


002372 


000000 





-WORD 4 sBIT 2 SET. 

-WORD 10 sBIT 3 SET. 

«WORD 20 sBIT 4 SET. 

-WORD 40 sBIT 5S SET. 

-WORD 100 sBIT 6 SET. 

-WORD 200 sBIT 7 SET. 

«WORD 400 sBIT 8 SET. 

-WORD 1000 sBIT 9 SET. 

-WORD 2000 sBIT 10 SET. 

-WORD 4000 sBIT 11 SET. 

-WORD 10000 sBIT 12 SET. 

«WORD 20000 sBIT 13 SET. 

-WORD 40000 sBIT 14 SET. 

-WORD 100000 ;BIT 15 SET. 
OHSS 6966606006060 66 060006 06 06 00000606000000060600000008000000000000000000008 
34 Table of DUT Baudrates 
j SOROS ESEEEEEE EEE 44 66 046 0606046600000 06 0000 00000460000000000066000000000000000000 
BRTBLB: : sBASE OF DUT BAUD RATE TABLE. 

-WORD 50. sBAUD RATE ENTRY FOR CODE 0. 

«WORD 75. sBAUD RATE ENTRY FOR CODE 1. 

-WORD 110. sBAUD RATE ENTRY FOR CODE 2. 

«WORD 134. sBAUD RATE ENTRY FOR CODE 3. 

-WORD 150. sBAUD RATE ENTRY FOR CODE 4. 

-WORD 300. sBAUD RATE ENTRY FOR CODE 5S. 

-WORD 600. sBAUD RATE ENTRY FOR CODE 6. 

-WORD 1200. sBAUD RATE ENTRY FOR CODE 7. 

-WORD 1800. sBAUD RATE ENTRY FOR CODE 8. 

«WORD 2000. sBAUD RATE ENTRY FOR CODE 9. 

-WORD 2400. sBAUD RATE ENTRY FOR CODE 10. 

-WORD 4800. sBAUD RATE ENTRY FOR CODE 11. 

«WORD 7200. sBAUD RATE ENTRY FOR CODE 12. 

-WORD 9600. sBAUD RATE ENTRY FOR CODE 13. 

-WORD 19200. sBAUD RATE ENTRY FOR CODE 14. 

«WORD 38400. sBAUD RATE ENTRY FOR CODE 15S. 
BRTBLE:: sLABEL AFTER END OF DUT BAUDRATE TABLE. 
§HRS6SOOS04606 060600 06 06 040600000006 0000 00000000 0000000000 00 0000000006600000046 
3% GPR Save Areas Zero and One. 
§ #0806 6660666606 660606600006 06 0600000006 000000060000000006000000000000000000008 
GPRSOB: : sBASE OF GPR SAVE AREA NUMBER ZERO. 

-WORD 0 sWORD 1, STORAGE FOR R1. 

-WORD 0 sWORD 2, STORAGE FOR Re. 

-WORD 0 sWORD 3, STORAGE FOR R3. 

-WORD 0 sWORD 4, STORAGE FOR R4. 

-WORD O sWORD 5, STORAGE FOR RS. 
§ #0666646 666660 060606 0606 0600060000000606000000000000000000060000000000000000008 
3% Transmission and Reception Veriables, Pointers, and Flags. 
§ OO86006060660666 6606 06 06 6060060006600060 0606 00000600066006000006600000000000086 
CHRTOT:: .WORD 0 sTOTAL RECEIVED CHARACTER COUNTER. 
ERSMRF:: .WORD 0O s“PRINT ERROR SUMMARY” FLAGS. 
TXDONF:: .WORD 0 s TRANSMISSION DONE FLAGS. 
RXDONF:: .WORD 0 sRECEPTION DONE FLAGS. 
TXDBLF:: .WORD 0 “TX HAS BEEN DISABLED” FLAG. 
§$660666600660066006066006 000006 66060060006 06600066000600000000006000086000000008 
; Storege erea for the BMP code queue. 
§$O660066606606006 60406000066606660606000006600000000000000606006000006000860006 
BMPCOP: : -WORD 0 sPOINTER USED TO ACCESS THE NEXT CELL IN QUE. 













SEQ 0037 


Qa oa 










1545 002514 
1546 002714 







































1597 004704 
1598 004714 
1599 004724 
1600 004734 
1601 004744 
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BMPCQB: : -BLKW 64. sSTORAGE FOR 32 CELLS, TEST@ PLUS BMP CODE. 
BMPCQE: : sLAST ADORESS PLUS 2 OF THE BMP CODE QUEUE. 
§ OOS 6866606600060606 0006000606 6000000006000000000060000006006000000000000000008 
3% Receive Buffer and Associated Variables. 
§ POSSESSES EEEE ESOS OS OS 06 000006060060000000 00 00000000000000000000000000000000008 
RXBOPT:: .WORD 0 sRX BUFFER OUTPUT POINTER. 
RXBIPT:: .WORD O 3RX BUFFER INPUT POINTER. 
RXBCNT:: .WORD O sCOUNT OF NUMBER OF CHARS IN RX BUFFER. 
RXBSTA: : sLABEL AT BEGINNING OF THE RX BUFFER. 
-BLKW RXBFUL sLEAVE ENOUGH ROOM FOR A FULL BUFFER. 
RXBEND:: .WORD 0O sLABEL AFTER END OF RX BUFFER. 


§OOOSS 0606606046 660600006 060600 0000060000000006 06 0000000606000000000000000000008 
3% TX/RX Control Block. 

§ SESS O0 60606066 6606 0606 6004606 0000000000 0000 00000000000000000000000000000000008 
CBB: : sBASE OF TX/RX CONTROL BLOCK. 


CBLPRA:: .WORD 0 sLINE PARAMETER REGISTER CONTENTS. 
CBLNCA:: .WORD 0 sLINE CONTROL REGISTER CONTENTS. 
CBOPAA:: .WORD 0 sSTART ADDRESS OF DATA PATTERN. 
CBDPLA:: .WORD 0 sLENGTH OF DATA PATTERN. 
CBDPNA:: .WORD 0 sNUMBER OF REPEAT TRANSMISSIONS OF THE DATA PATTERN. 
CBMAPA:: .WORD 0O sBIT MAP OF LINES TO INITIALISE. 
CBLPBA:: .WORD 0 sLOOPBACK MODE CAS IN LOPBCK). 
CBOFSA:: .WORD 0 sAMOUNT OF OFFSET BETWEEN EACH TX START. 
§#O66660$0000606 660006060606 00000000006000 060000 0000000006000000000000000000008 
3% Transmission and Reception Tebles of Pointers end Counters. 
§ BOSS 6066060060606 060006 0666000000 0606600006 06000000000000000000000000000000088 
OPENOB:: .BLKW 16. sTABLE OF END ADDRESSES OF DATA PATTERNS. 
OPLENB:: .BLKW 16. sTABLE OF LENGTH OF DATA PATTERNS FOR LINES. 
EXCNTB:: .6LKW 16. sEXTRA RECEIVED CHARACTER COUNTERS TABLE. 
ERCNTB:: .BLKW 16. sCHARACTER RECEIVE ERROR COUNTERS TABLE. 
TXPTRB:: .BLKW 16. s TRANSMISSION DATA POINTERS TABLE. 
RXPTRB:: .BLKW 16. sRECEPTION DATA POINTERS TABLE. 
CHCNTB:: .BLKW 16. sNUMBER OF CHARACTERS TO BE TXED AND RXED. 
TXCNTB:: .BLKW 16. s TRANSMISSION CHARACTER COUNTERS TABLE. 
RXCNTB:: .BLKW 16. sRECEPTION CHARACTER COUNTERS TABLE. 
§ OOS OO 606600 606060606066 6006 00606000600000 06 00000600000600000000060000060000008 
; General teble end buffer erea--513 words. 
§ O68 O6660006606 0660666 66066606 60006000000060060000000000000006000600000000000000008 
BUFBAS: : sBASE OF MEMORY BUFFER. 
ERLTBL:: -BLKW 128. sFIRST HALF OF GENERAL TABLE OR BUFFER. 
BUFMID: : -BLKW 64. sSECOND HALF OF GENERAL TABLE OR BUFFER. 
BUFS3QT:: -BLKW 64. sLAST QUARTER OF THE BUFFER AREA. 
BUFEND: : sEND OF GENERAL PURPOSE MEMORY BUFFER. 
ENDETB: : -BLKW 16. sBUFFER OVERFLOW SPACE. 
§OO666086066066006 66 06 66 6006606600600600066060066006000006060060600000060060000086 
3 Table of Date Pattern Resync Queues. 
§96066664606060666066606 06600660 006006000600660000600000000066000000000060000060008 
OPRSQB: : sDATA PATTERN RESYNC QUEUES TABLE BASE. 

-BLKW 4 sDATA PATTERN RESYNC QUEUE FOR LINE 0. 

-BLKW 4 sDATA PATTERN RESYNC QUEUE FOR LINE 1. 

-BLKW 4 sDATA PATTERN RESYNC QUEUE FOR LINE 2. 

-BLKW 4 sDATA PATTERN RESYNC QUEUE FOR LINE 3. 

-BLKW 4 sDATA PATTERN RESYNC QUEUE FOR LINE 4. 

-BLKW 4 sDATA PATTERN RESYNC QUEUE FOR LINE 5. 

-BLKW 4 sDATA PATTERN RESYNC QUEUE FOR LINE 6. 

-BLKW 4 sDATA PATTERN RESYNC QUEUE FOR LINE 7. 

-BLKW 4 sDATA PATTERN RESYNC QUEUE FOR LINE 8. 








1602 004754 
1603 004764 
1604 004774 
1605 005004 
1606 005014 
1607 005024 
1608 005034 
1609 005044 
1610 

1611 

1612 

1613 005044 


1630 005070 


1631 005072 
1632 005074 
1633 


1650 005110 
1651 005112 
1652 005114 
1653 005116 
1654 005120 
1655 005122 
1656 005124 
1657 005126 
1658 005130 


156470 
167070 
177470 
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SEQ 0039 


sDATA PATTERN RESYNC QUEUE FOR LINE 9. 
sDATA PATTERN RESYNC QUEUE FOR LINE 10. 
sDATA PATTERN RESYNC QUEUE FOR LINE 11. 
sDATA PATTERN RESYNC QUEUE FOR LINE 12. 
sDATA PATTERN RESYNC QUEUE FOR LINE 13. 
sDATA PATTERN RESYNC QUEUE FOR LINE 14. 
sDATA PATTERN RESYNC QUEUE FOR LINE 15. 
sEND OF DATA PATTERN RESYNC QUEUES TABLE. 
§ OOS6 006060666006 06 0006060006 660600000606 0600000000000006000000000000000000008 
$ Single Cherecter Mode LPR Field Tables. 
§ 8060060604066 0666 0606 0666 000600 000606006060000000000000000000000000000000800000 
SCBCTB:: sBASE OF NUMBER OF BITS PER CHAR FIELDS TABLE. 
. 0 35 BITS/CHAR LPR FIELD. 
10 36 BITS/CHAR LPR FIELD. 
37 BITS/CHAR LPR FIELD. 
38 BITS/CHAR LPR FIELD. 
sEND OF NUMBER OF BITS/CHAR FIELDS TABLE. 
sBASE OF BAUDRATE FIELDS TABLE. 
3300 BAUD LPR FIELDS.(chenged from 50 beud)$$$ 
31.2K BAUD LPR FIELDS. 
338.4K BAUD LPR FIELDS. 
sEND OF BAUDRATE FIELOS TABLE. 
sBASE OF NUMBER OF STOP BITS FIELDS TABLE. 
s1 STOP BIT LPR FIELD. 
s2 STOP BITS LPR FIELD. 
sEND OF BAUDRATE FIELDS TABLE. 
sBASE OF TYPE OF PARITY FIELDS TABLE. 
sNO PARITY LPR FIELD. 
s000 PARITY LPR FIELD. 
sEVEN PARITY LPR FIELD. 
sEND OF TYPE OF PARITY FIELDS TABLE. 


$806 6606600006000000000000000000000000000000000000000000000000000000000600000008 
; DMA Mode LPR Field Tebles. 
3 Set up with specified beudrates, 1 stop bit, odd perity, 8 bite/cher. 
§ #6066 66660066 6606006066 0600000006 06006000066 06006060000000000000000000000000008 
DLPRTB: : sBASE OF DMA TEST LPR FIELOS TABLE. 
-WORD 156470 9.6K BAUD. 
-WORD 167070 319.2 BAUD. 
-WORD 177470 338.4K BAUD. 
DLPRTE:: sEND OF DMA TEST LPR FIELDS TABLE. 
§$66060600002606060600000000000006060006060000000000000000000000000000000000008 
F SPLIT SPEED LPR PARAMETER TABLE. 
§$8660606006060006 06 000666000006 060660000006000000000060000006006000000000000608 
SPLPRB:; sBASE OF SPLIT SPEED LPR TABLE. 
170070 sTX: 38.4K, RX: SO BAUD, 1 STOP ODD PAR 8 BITS. 
7 sTX: 50, RX: 38.4K BAUD, 1 STOP ODD PAR 8 BITS. 
sNUMBER OF REPEAT TRANSMISSIONS AT SO BAUD. 
sNUMBER OF REPEAT TRANSMISSIONS AT 38.4K BAUD. 
sTX: 1200, RX: 75 BAUD, 1 STOP ODD PAR 
sTX: 75, RX: 1200 BAUD, 1 STOP ODD P 
sNUMBER OF REPEAT TRANSMISSIONS 
sNUMBER OF REPEAT TRANSMISSIONS 
sTX: 2000, RX:2400 BAUD, 1 STOP 
sTX: 2400, RX:2000 BAUD, 1 STOP 
sNUMBER OF REPEAT TRANSMISSIONS A 
sNUMBER OF REPEAT TRANSMISSIONS A 





= 
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GLOBAL DATA SECTION 
1659 005132 
1660 


-— 





SPLPRE: : 


sEND OF SPLIT SPEED LPR TABLE. 


$966 0660066600 00 66060600666006 660606060600 6606060606060660660060606006060600006000006 


: SINGLE CHARACTER DATA PATTERN TABLE. 
jPPOREAEESESEEEEEEEREEESESESESSEEEEDEEEEEESEEEEEREEEEEDEDEOREEEEESEOEEEEEEEEEES 


SOPBAS:: .BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
-BYTE 
.BYTE 
BYTE 
.BYTE 
BYTE 
BYTE 
.BYTE 
.BYTE 
.BYTE 

SOPEND: : 
.BYTE 
.BYTE 
.BYTE 
.BYTE 


0 


0 
1 
10 
17 


sSTART OF SINGLE CHARACTER DATA PATTERN TABLE. 


sEND OF SINGLE CHARACTER DATA PATTERN TABLE. 
sSTART OF FIRST SHORT DATA PATTERN OVERFLOW AREA. 


§ OER OEESO6 660664 66600006 600006 060046666004066000046000800060004000000000060040048008 


; SINGLE CHARACTER DATA PATTERN TABLE NUMBER TWO. 
i POSSESSES SEES EASES EEOEEDESSAEEEEED DOOD NE O444066000060000000000000000000000008 


SOP28:: .BYTE 
-BYTE 
-BYTE 
-BYTE 
-BYTE 
-BYTE 
-BYTE 
-BYTE 
-BYTE 
-BYTE 
-BYTE 
-BYTE 
-BYTE 
-BYTE 
-BYTE 
-BYTE 


-BYTE 
-BYTE 
-BYTE 
-BYTE 
-BYTE 
-BYTE 
-BYTE 
-BYTE 
-BYTE 
-BYTE 
-BYTE 


SOP2E: : 


125 


sSTART OF SECOND SHORT DATA PATTERN. 


sEND OF SECOND SHORT DATA PATTERN. 
sSTART OF SECOND SHORT DATA PATTERN OVERFLOW AREA. 











SEQ 0040 
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SEQ 0041 


1716 005211 225 -BYTE 225 

1717 005212 132 -BYTE 132 

1718 005213 245 -BYTE 245 

1719 005214 126 -BYTE 126 

1720 005215 251 -BYTE 251 

17z1 FOOCASEEEEEEEEEEEE SEES EE EEEEEEEEEEEDOOEEOEEEO4O6O8006000000060006606000000000600088 
1722 3 Single cherecter sefe proportional delay table. 

1723 §POCAESEOEESEEEEOEEEEEEEEEEEEEEEEEEDEEEDODOEOOOO6600606000006606066006000000000608 
1724 005216 372 PROTBL::.BYTE 250. sDELAY IN MILLI SECONDS AT 50 BAUD 

1725 005217 252 -BYTE 170. sDELAY IN MILLI SECONDS AT 75 BAUD 

1726 005220 167 -BYTE 119. sDELAY IN MILLI SECONDS AT 110 BAUD 

1727 005221 143 -BYTE 99, sDELAY IN MILLI SECONDS AT 134.5 BAUD 

1728 005222 132 -BYTE 90. sDELAY IN MILLI SECONDS AT 150 BAUD 

1729 005223 062 BYTE 50. sDELAY IN MILLI SECONDS AT 300 BAUD 

1730 005224 036 -BYTE 30. sDELAY IN MILLI SECONDS AT 600 BAUD 

1731 005225 024 -BYTE 20. sDELAY IN MILLI SECONDS AT 1200 BAUD 

1732 005226 021 -BYTE 17. sDELAY IN MILLI SECONDS AT 1800 BAUD 

1733 005227 020 -BYTE 16. sDELAY IN MILLI SECONDS AT 2000 BAUD 

1734 005230 017 -BYTE 15. sDELAY IN MILLI SECONDS AT 2400 BAUD 

1735 005231 015 -BYTE 13. sDELAY IN MILLI SECONDS AT 4800 BAUD 

1736 005232 014 -BYTE 12. sDELAY IN MILLI SECONDS AT 74200 BAUD 

1737 005233 014 -BYTE 12. sDELAY IN MILLI SECONDS AT 9600 BAUD 

1738 005234 013 OVte ii. sDELAY IN MILLI SECONDS AT 19200 BAUD 

ieee ocs235 012 y te 10. sDELAY IN MILLI SECONDS AT 38400 BAUD 

1741 § OOS OOOS F666 66066666000006 00060606 0666600006000068000000000400000000060000040408 
1742 :* Table for storage of RX/TX line number associations. 

1743 s# The associations are stored as line number times 2 for use as offsets 

1744 36 when accessing a table of words. 

1745 ;¢ NOTE: Do not write ea non-zero value into the upper byte of any entry. 
1746 § SOCEEESEEEESEEEEESEESEEEEEEEESSSEEAEEEEEEEESSCEEESEEEEEEDEEEEEEEEEDEDEDREEEEREES 
1747 005236 TXRXLB: : sBASE OF TX/RX LINE NUMBER ASSOCIATION TABLE. 
1748 005236 000000 -WORD O sTX/RX LINE OFFSET FOR RX/TX LINE 0. 

1749 005240 000002 -WORD 2. sTX/RX LINE OFFSET FOR RX/TX LINE 1. 

1750 005242 000004 -WORD 4, sTX/RX LINE OFFSET FOR RX/TX LINE 2. 

1751 005244 000006 «WORD 6. sTX/RX LINE OFFSET FOR RX/TX LINE 3. 

1752 005246 000010 -WORD 8. ;TX/RX LINE OFFSET FOR RX/TX LINE 4. 

1753 005250 000012 -WORD 10. sTX/RX LINE OFFSET FOR RX/TX LINE 5. 

1754 005252 000014 -WORD 12. sTX/RX LINE OFFSET FOR RX/TX LINE 6. 

1755 005254 000016 -WORD 14, sTX/RX LINE OFFSET FOR RX/TX LINE 7. 

1756 005256 000020 -WORD 16. sTX/RX LINE OFFSET FOR RX/TX LINE 8. 

1757 005260 000022 -WORD 18. sTX/RX LINE OFFSET FOR RX/TX LINE 9. 

1758 005262 000024 -AORD 20. sTX/RX LINE OFFSET FOR RX/TX LINE 10. 

1759 005264 000026 -WORD 22. sTX/RX LINE OFFSET FOR RX/TX LINE 11. 

1760 005266 000030 -WORD 24, sTX/RX LINE OFFSET FOR RX/TX LINE 12. 

1761 005270 + 000032 -WORD 26. sTX/RX LINE OFFSET FOR RX/TX LINE 13. 

1762 005272 000034 -WORD 28. sTX/RX LINE OFFSET FOR RX/TX LINE 14. 

1763 005274 000036 -WORD 30. sTX/RX LINE OFFSET FOR RX/TX LINE 15. 

1764 005276 TXRXLE:: sEND OF TX/RX LINE NUMBER ASSOCIATION TABLE. 
1765 -EVEN sGUARANTEE THAT NEXT TABLE IS ON WORD BOUNDARY. 
1766 FPSESESESESEAE EASA SSESEEEEEESESEESEASHEEERERERESEKSREAREREDEEEEERERERDREEEEEEEADS 
1767 s# Table of TX/RX line number associations in staggered loopback . 

1768 3# The associations are stored as line number times 2 for use as offsets 

1769 3* when accessing a table of words. 

1770 s# This is @ table of date for reading only. Use to load the above table. 

1771 i* NOTE: Must convert from BYTEs to WORDs wnen loading above table. 

1772 SPORES SESEEEEEEEEEED ES CESEEEEEEAEEEESEAESAASEEERRAEAEEERESEEA SARE KALE RELEREERELE 


-— 
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1773 005276 


1804 
1605 





STGTRB:: 
BYTE 4. 
BYTE 6. 
BYTE 0O 
BYTE 2. 
BYTE 12. 
BYTE 14 
BYTE 8 
BYTE 10 
BYTE 
BYTE 22 
BYTE 16 
BYTE 8 
BYTE 28 
BYTE 30 
BYTE 24 
-BYTE 26 
EVEN 
ERRTBL 
ERRTYP:: WORD 
ERRNBR: : WORD 
ERRMSG: : . WORD 
ERRBLK:: - WORD 
-EVEN 


oooo 


Pege 33-7 


sBASE OF STAGGERED 
LINE OFFSET F 


3 TX/RX 
3 TX/RX 
3 TX/RX 
3 TX/RX 
3 TX/RX 
3 TX/RX 
3TX/RX 
3 TX/RX 
3 TX/RX 
3s TX/RX 
3 TX/RX 
3 TX/RX 
3 TX/RX 
sTX/RX 
3 TX/RX 


sTX/RX L 
sGUARANTEE THAT NEXT TABLE Is” ON word BOUNDARY . 


LSERRTBL:: 


LINE 
LINE 
LINE 
LINE 
LINE 


OF FSET 
OFFSET 


RX/TX LT 


RX/TX 
RX/TX 
RX/TX 
RX/TX 
RX/TX 
RX/TX 
RX/TX 
RX/TX 
RX/TX 
RX/TX 
RX/TX 
RX/TX 
RX/TX 
RX/TX 
RX/TX L 


LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 


a LINE wy TABLE. 











SEQ 0042 
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SEQ 0043 


1807 -SBTTL GPR HANDLING ROUTINES FOR SUBROUTINE CALLS. 

1808 FOROS EEEEEEEEEEEEEEEEEEEEEEEEEEOEOEEEOEEDEDOEEEEDEEEEODEOOEEEOEEEEEEEEEEEEES 

1809 i¢ There are 4 routines and macro definitions used for the handling of 

1810 3¢ GPR velues during subroutine calls within this program. The four 

rt 34 routines/macro calls have the following names: 
34% 

1813 ae SAVE - Macro definition used at the beginning of a subroutine to 

1814 3e save the GPR contents for leter restoration. 

1815 34 PASS - Macro definition used at the end of ea subroutine to restore 

1816 ;* the previously saved GPR contents and to leave the contents 

1817 34 of the specified GPR(s) intact (NOT restored). 

1818 34 PREGOS - Subroutine which is called from the SAVE and PASS macro 

po 34 expansions which actually performs the actions on the GPRs. 
34 

1821 34 During a subroutine which uses these GPR save routines the values 

sass 34 of the GPRs ere stored on the stack in the following stack frame: 
34% 

1824 3¢ SP -> RET PC INTO PREGOS ROUTINE. 

1825 34 SP+2 -> GPR RO CONTENTS. 

1826 34 SP+4 -> GPR R1 CONTENTS. 

1827 34 SP+6 -> GPR R2 CONTENTS. 

1828 3* SP+8 -> GPR R3 CONTENTS. 

1829 3* SP+10 -> GPR R4 CONTENTS. 

1830 34 SP+12 -> GPR RS CONTENTS. 

poe pH SP+14 -> RET PC INTO CALLER OF SUB’ TNE WHICH CALLED PREGOS. 
3* 

1833 3* Each level of sub’tne calling uses 8 words of stack overhead. 

1834 34 The SAVE and PASS macros can also be used in “straight line code” 

1835 34 to save and restore the GPR values. In any case, after the 

1836 34 issuing of a PASS call the GPRs will be restored to the values 

1837 34 they had prior to the lest SAVE cell (except for the excepted, 

1838 34 or passed intact, GPRs specified as parameters to the PASS cell) 

1839 34 and the SP will also be restored to its condition before the last 

1840 34 SAVE call. The programmer must be sure that the SP has the same 

1841 4 value when the PASS macro is called as it had immediately after 

1842 :* the SAVE macro was called. 

1843 FPEESEEREEEESESEADSEEE SESE EAEEEASEAEEEAREAAAEE ES RARAEEER ERED REREEEEEREEEEEERE 


r-— 








CVDHCOC DHV11-M FUNC TST PART 3 MACRO VOS.00 Thursday 25-Apr-85 16:37 Page 35 


GPR FRAME ACCESS EQUATES 


on -SBTTL GPR FRAME ACCESS EQUATES 
3eee 
1847 sEquates that allow access to the stack frame. These are the 
1848 soffsets into the stack for registers saved during the PREGOS 
1849 sPoutine. 
1850 s--- 
1851 
1852 000036 LPCSLT== 36 sOffset for last return PC. 
1853 000016 PCSLOT== 16 sOffset for return PC 
1854 000014 RSSLOT== 14 sOffset for RS. 
1855 000012 R4SLOT== 12 :Offset for R4. 
1856 000010 R3SLOT== 10 :Offset for R3. 
1857 000006 R2SLOT== 6 :Offset for R2. 
1858 000004 R1SLOT== 4 :Offset for R1. 
1859 000002 ROSLOT== 2 sO0ffset for RO. 


r— 
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SEQ 0045 
GLOBAL MACRO DEFINITION - SAVE - 

1861 -SBTTL GLOBAL MACRO DEFINITION - SAVE - 
1862 FERRER EEEESEEEEEER EEE EEEE EEE EEOS FEED EEEEEEEEEEEEEEDEDDODODODEEEDEEEDEEDEEEEOEE 
1863 3¢ This macro is used at the beginning of a subroutine to save the 
Soom 3@ contents of the GPRs RO thru RS. 
1 3% 
1866 3@ INPYTS: SP - Unc since subroutine was entered 
seer 34 RSSLOT - Offset to stack slot for RS (Equated to 14 Octal) 

3* 
1869 3# OUTPUTS: GPR save area on the stack is loaded with the contents of GPRs 
pia 3* TOP OF STACK - Loaded with the return address into PREGOS 

1 34 

1872 3# CALLING SEQUENCE: SAVE 
1873 3¢ 
1874 3@ COMMENTS: No e ts ere allowed. 
eat 18 The PASS macro should be called to restore the GPR values. 

3;* 
1877 3* SUBORDINATE ROUTINES CALLED: PREGOS. 
i678 FEPRAEEEEEEREEEAEREEES ODES ES EEEEEE EERE DEES ODDS OS ODES EEEEEDEEEE EE EEEEEEEEEEEEEES 
1879 
1880 -MACRO SAVE 
1881 -LIST 
1882 JSR RS ,PREGOS ;CALL REGISTER SAVE SUBRT. 
1883 -NLIST 
1884 -ENDM SAVE 


—— 
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GLOBAL MACRO DEFINITION - PASS - 
-SBTTL GLOBAL MACRO DEFINITION - PASS - 













1887 tT hacacetadceateedeedeeentee hihi t LLL Ltt LTT LTT LLL T TTT TTT TTT TTT TTT Tere Tt 
1888 34 This macro is used in conjunction with the SAVE macro. It is 
1889 i* celled at end of a subroutine to pass parameters in GPRs back to the 
1890 ié calling routine by altering the GPR save area on the stack and then 
pee 3* returning to PREGOS to restore the GPRs to their saved values. 
3% 
1893 3 INPUTS: Only allowed ARGUMENTS ere “RO” thru “RS”. 
1894 34 ROSLOT thru RSSLOT must be equated to their respective GPR save 
ret ;* slot offsets before calling this macro. 
3* 
roe 3@ OUTPUTS: The GPR values are put in their respective slots on the stack. 
ff 
1899 3# CALLING SEQUENCE: PASS RO,R1,... 























1901 3* COMMENTS: Any combination of GPR arguments may be listed in any order. 
1902 34 For example, the following are legal: 

1903 3* PASS Ri 

1904 ;* PASS R4,RO,R2 

1905 3* The GPRs listed as arguments will be passed intact to the 

1906 ;* calling routine, all other GPRs will be restored. 

dos aa The SP must be at its original value when PASS is called. 

1908 3* 

1909 3* The macro call 

1910 ;* PASS RO,R3 

1911 ;# expands into the following assembly code: 

1912 3 MOV RO,ROSLOTC(SP) sPUT RO IN STACK SLOT. 
1913 3% MOV R3,R3SLOTC SP) sPUT R3 IN STACK SLOT. 
1914 i* JSR PC ,8(SP)+ sRETURN TO PREGOS SUBRT. 
1915 34 In this example GPRs Ri, R2, R4, and RS will be restored to 
1916 ;* their values contained in the stack frame and RO and R3 

ost 3% will be left at their values prior to this PASS call. 

191 3% 

1919 +* SUBORDINATE ROUTINES CALLED: (PREGRT - Label within PREGOS, value on stack.) 
1920 §REREEEEEEEEEEEEEEED ES 664646646606 6660044660600 6406 0466060066040004 6440444444 004484 





1922 -MACRO PASS A,B6,C,0,E,F 
1923 . IRP X,<A,B,C,0,E,F> 
1924 IF NB ,X 


1926 MOV X,X' SLOTCSP) sPUT X IN STACK SLOT. 













1931 JSR PC,@(SP)+ sRETURN TO PREGOS SUBRT. 
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SEQ 0047 
GLOBAL SUBROUTINE - PREGOS - 
1935 -SBTTL GLOBAL SUBROUTINE - PREGOS - 
1936 Ee hacetaaetadadeecateceheeetnee nett LLL TLL TLL LLL TL TTT TTT TTT TTT TT TTT TTT TTT Ts 
ee 34 Preserve Registers RO through R5 for subroutine cells. 
3% 
1939 3# INPUTS: The return address back into the calli routine must be in 
Den ;@ GPR RS. Ci.e.- Macros use "JSR R5S,PREGOS”. ) 
3 
seek 3# OUTPUTS: Registers RO through R5 ere saved on the stack. 
3* 
1944 s*CALLING SEQUENCE: SAVE sMacro expansion calls PREGOS. 
1945 ;* [Subroutine code]... 
seat 3% PASS sMacro expansion recalls PREGOS. 
3% 
bes ;*COMMENTS: This routine is re-entrant. 
7* 
1950 3* Parameters may be passed out of a subroutine by modifying the 
1951 ;* register save erea on the stack. Use the PASS GPRn macro 
1952 3* to return GPR values intact. 
1953 3* Use the RnSLOT offsets from the SP to pass other parameters. 
1954 3* (Example: MOV VALUE , ROSLOT(SP) J 
oo 3* Make sure the SP is at its original value when you do this. 
;* 
1957 s+*SUBORDINATE ROUTINES CALLED: None. 
1958 FEREEREREEEEEEEEEESEEESS ESSERE REED ODED DS OEOE ES ESEE DEERE EE EEEEEEEEEREDEEEDSES 
1959 
1960 005326 PREGOS: sRS HAS BEEN LOADED ON THE STACK BY THE SUBROUTINE CALL 
1961 005326 010446 MOV R4,-(SP) sSAVE R4 
1962 005330 010346 MOV R3,-CSP) sSAVE R3 
1963 005332 010246 MOV R2,-C(SP) sSAVE R2 
1964 005334 010146 MOV R1,-CSP) sSAVE Ri 
1965 005336 010046 MOV RO,-(SP) sSAVE RO 
1966 005340 010546 MOV R5,-(SP) sPUSH RETURN PC ON TOP OF STACK 
eoee 005342 016605 000014 MOV RSSLOT(SP),RS sRESTORE RS TO VALUE IT HAD BEFORE CALLS 
1969 005346 004736 JSR PC ,AC(SP)+ :Call the subroutine at the return address 
1970 sfrom the PREGOS call, putting the present 
1971 sPC on the stack as ea return address into 
1972 sthis (PREGOS) routine. 
1973 
1974 tooe 
1975 iThe following code is executed when the calling routine does a 
ie7e “return” [J PC,@(SP)+] using the PC deposited on the stack above. 
gree 
1978 
1979 005350 012605 PREGRT:: MOV (SP)+,R5 sPut return PC in R5. 
1980 005352 012600 MOV (SP)+,RO sRestore RO. 
1981 005354 012601 MOV (SP)+,R1 sRestore R1. 
1982 005356 012602 MOV (SP)+,R2 sRestore R2. 
1983 005360 012603 MOV (SP)+,R3 sRestore R3. 
ae 005362 012604 MOV (SP)+,R4 sRestore R4. 
1986 005364 000205 RTS R5 Return to the subroutine which called PREGOS. 
1987 srestoring RS in the process. 


o- 
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GLOBAL TEXT SECTION 


005366 104 
005371 061 
005374 115 


2009 

2015 

2016 

2017 

2018 005376 
005376 
005376 104 

ART 3/ 

005401 061 
005404 115 
005407 125 
005412 040 
005415 123 
005420 120 
005423 124 
005426 000 

2019 

2020 

2027 


126 
055 





SEQ 0048 


-SBTTL GLOBAL TEXT SECTION 

F Led aadatedadalatalalalatalaialatalaialaiaiaiaininininiginininininininininininisinininininininuininiciemnmcmccr EET 
é 

: FVTSKL1.P11 


a 
1h sh atahatahaiahaalalalaiaiainlailniniiaisininisisiainininisisiininnisiineuiii ete t it ttt tL RTT TL TT TL ERLE T RTE En 


3+ 
s THE GLOBAL TEXT SECTION CONTAINS FORMAT STATEMENTS, 
s MESSAGES, AND ASCII INFORMATION THAT ARE USED IN 

; MORE THAN ONE TEST. 

gre 


3 
; NAMES OF DEVICES SUPPORTED BY PROGRAM 
DEVTYP <DHV11-M> 





LSDVTYP:: 
-ASCIZ sDHV11-Ms 
-EVEN 
; TEST DESCRIPTION 
DESCRIPT <DHV11-M FUNC TEST PART 3> 
L$DESC:: 
-ASCIZ /DHV11-M FUNC TEST P 
.EVEN 
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SEQ 0049 


2030 had atadatadatatataiaialatalatalalatataisininininiainininistateietaisiainipiaininiaisiaisiaieininiininninuiccieuecrcc TPE 


3 
3 VOHC .FMT 

2033 3 
: Led atahatadadedaiaiatedatalaiaisininiainininiainininisinnininisininisinininainanaiasinacccecciioc 


; 
sees ; FORMAT STATEMENTS USED IN PRINT CALLS 
; 
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GLOBAL TEXT SECTION 


i. 


010537 





é 
Fh hai haialaialaialsialaialntalntalninltnlsinininininininininininininisinigisininginpinnuinmenuneice En 


GLOBAL MESSAGE AREA 
eeeeeeee4 FORMAT STATEMENTS seeeeeeeee 


/SNSA TESTING UNIT :8D48N/ 

/STSN/ 

/#A TSA ABORTED SN/ 

/6A ACTUAL DATA:  s068A (0).sN/ 

/SNSA DMA ADDRESS TEST SUCCESSFUL, BITS 0 TO sD2sA (D) TESTED/ 
/ (8028A BITS).SN/ 

\SA FRAMING/PARITY ERROR DETECTION AND REPORTING BAD ON LINES: SD2NA : sD2sN\ 
/#A CHAR RECEIVED WITH FRAMING ERROR BIT ST#A, SHOULD BE sTSN/ 
/#A CHAR RECEIVED WITH PARITY ERROR BIT STSA, SHOULD BE STSN/ 
/STSA ON LINE SD028A DECIMAL .SN/ 

/SNENSAEXECUTING THE STSN/ 

/%A UNEXPECTED ST#A FOUND IN RECEIVE CHAR FIFO:sN/ 

fA CODE IS ASSOCIATED WITH LINE: sD2sN/ 

/#A CODE IS: s03sN/ 

/#A STSA VALUE: SO38N/ 

/A STSA VALUE: NONESN/ 

/SA TSA SD28N/ 

/#A CHARACTER RECEIVED WITH ERROR FLAG(S) SET ON LINE sD2sN/ 
i, CHARACTER READ AS: s03sN/ 

/A STSA ERROR FLAG SET.SN/ 

/A NUMBER OF ERRORS DETECTED ON LINE #D2sA IS sDSsN/ 

/#A LINESD28A ONLY STSDSSA BYTES OF SD5SA BYTE/ 

/ DATA PAT'N TX‘'D FROM LINESD2sN/ 

/#A DATA PATTERN NOT COMPLETELY sTsN/ 

/SA STSA SO68N/ 

pot TOO FEW TX.ACTIONS GENERATED ON LINE sD2sN/ 

/A ERROR CONDITION ON LINE sD2sN/ 

/6A STSD26A, BMP CODE REPORTED :s03sN/ 

/#A_ OVERFLOW OCCURRED (MORE THAN 31 BMP CODES FOUND IN QUEUE)sN/ 
/S058A IS NOT A SUPPORTED BAUDRATE, ENTER ANOTHER OR CTRL C.sN/ 
/SAMODEM STATUS SIGNAL REPORT: sN/ 

/8A LINE @6D28A: DSR=8B18A, RI=8B18A, DCD=8B818A, CTS=8B815N/ 
/SAMODEM LOOPBACK TEST STATUS REPORT: / 

/PATTERN @8058A (D) COMPLETED. sN/ : 


ee6eee0eeee MESSAGE AREA seeceseseses 


-NLIST BIN 
.SBTTL 
: 
MFUNIT:: .ASCIZ 
EFOSO3:: .ASCIZ 
EF1601:: .ASCIZ 
EF1603:: .ASCIZ 
EF4401:: . ASCII 
.- ASCIZ 
EF6201:: .ASCIZ 
EF6202:: .ASCIZ 
EF6203:: .ASCIZ 
EF7801:: .ASCIZ 
EF8901:: .ASCIZ 
EF9001:: .ASCIZ 
EF9002:: .ASCIZ 
EF9003:: .ASCIZ 
EF9004:: .ASCIZ 
EF900S:: .ASCIZ 
EF9006:: .ASCIZ 
EF9007:: .ASCIZ 
EF9008:: .ASCIZ 
EF9009:: .ASCIZ 
EF9010:: .ASCIZ 
EF9012:: . ASCII 
- ASCIZ 
EF9013:: .ASCIZ 
EF9019:: .ASCIZ 
EF9020:: .ASCIZ 
EF9101:: .ASCIZ 
EF9103:: .ASCIZ 
EF9301:: .ASCIZ 
EF9302:: .ASCIZ 
UBRFMT:: .ASCIZ 
MSFMT1:: .ASCIZ 
MSFMT2:: .ASCIZ 
EDPFMT:: .ASCII 
-ASCIZ 
3% 
EM0103:: .ASCIZ 
EmM0S09:: .ASCIZ 
EM1601:: .ASCIZ 
EM4401:: .ASCIZ 
EM4402:: .ASCIZ 
EM4403:: .ASCIZ 
EM4404:: .ASCIZ 
EM4405:: .ASCIZ 
EM4406 


a REGISTER ACCESS ERRORS/ 

/TIMEOUT OCCURRED WAITING FOR MASTER RESET TO CLEAR/ 

OMA ADDRESS TEST / 

/NO SUITABLE ADOR FOUND, TEST ABANDONED/ 

/#sHOST FAILUREss; WRITE FAILED TO AN ADDR WHICH HAD BEEN READ/ 
/NO ACTIVE LINES, TEST ABANDONED/ 

/OMA_START BIT FOUND SET BEFORE DMA INITIATED, TEST ABANDONED/ 


-ASCIZ /TIME-OUT OCCCURED WAITING FOR DMA TO FINISH/ 
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GLOBAL MESSAGE AREA 


2119 010613 EM4407:: .ASCIZ /TOO FEW CHARACTERS FOUND IN THE RXFIFO,OMA FAILED/ 
2120 010675 EM4408:: .ASCIZ /TOO MANY BMP CODES FOUND IN RXFIFO/ 
2121 010740 EM4409:: .ASCIZ /BAD BITS BETWEEN BITS 0 AND / 
2122 010775 EM4410:: .ASCIZ /RXFIFO FAILED TO PURGE/ 
2123 011024 EM4411:: .ASCIZ /*#sHOST FAILURE*eWRITE ATTEMPT FAILED/ 
2124 011071 EMS303:: .ASCIZ /BMP CODE FOUND IN FIFO, TEST INVAILDATED/ 
2125 011142 EM6201:: .ASCIZ /FRAMING ERROR TEST / 
2126 011166 EM6202:: .ASCIZ /CLEAR / 
2127 011175 EM6301:: .ASCIZ /PARITY ERROR TEST / 
2128 011220 EM8901:: .ASCIZ /MODEM LOOPBACK TEST / 
2129 011245 EM9001:: .ASCIZ /SINGLE CHARACTER MODE TEST / 
2130 011301 EM9003:: .ASCIZ /MODEM STATUS CODE/ 
:: .ASCIZ /SELFTEST CODE/ 
: .ASCIZ /CHARACTER RECEIVED ON INACTIVE LINE, LINE:/ 
: .ASCIZ /UNEXPECTED CHAR RECEIVED AFTER RX COMPLETE ON LINE/ 
:: .ASCIZ /RECEIVED CHAR MISCOMPARE AGAINST TX DATA ON LINE/ 
2135 011560 EM9009:: .ASCIZ /EXPECTED OR CORRECT/ 
8 





-ASCIZ /ACTUAL OR MEASURED / 
:: .ASCIZ /OVERRUN/ 
2138 011640 €M9012:: .ASCIZ /FRAMING/ 
2139 011650 €M9013:: .ASCIZ /PARITY/ 
2140 011657 EM9014:: .ASCIZ /SUMMARY REPORTS FOR LINES WITH EXCESSIVE NUMBERS OF ERRORS:/ 
:: .ASCIZ /TRANSMITTED/ 
2142 011767 EM9016:: .ASCIZ /RECV'D/ 
:: ASCII / FIFO WILL NOT PURGE (DATA.VALID STUCK SET),/ 
2144 012053 -ASCIZ / REMAINDER OF TEST SKIPPED. / 
2145 012107 EM9025:: .ASCIZ /MORE THAN TWICE THE EXPECTED NUMBER OF CHARACTERS RECEIVED./ 
2146 012203 EM9026:: .ASCIZ / LPR CONTENTS: / 
2147 012227 EM9027:: .ASCIZ /EXTRA CHAR RECEIVED WITHIN DATA PATTERN ON LINE/ 
2148 012307 EM9028:: .ASCIZ /SINGLE CHAR MISSING FROM RECEIVED DATA ON LINE/ 
2149 012366 EM9030:: .ASCIZ /SA (NO TX COMPLETION INTERRUPTS RECEIVED )sN/ 
2150 012443 EM9101:: .ASCIZ /DMA TRANSMISSION MODE TEST / 
2151 012477 EM9102:: .ASCIZ /DMA_START BIT SET AFTER RESET OR TX.ACTION ON LINE(S):/ 
2152 012566 E€M9104:: .ASCIZ / UNEXPECTED DATA FOUND IN FIFO FROM LINE: / 
2153 012642 EM9201:: .ASCIZ /SPLIT SPEED TEST / 
2154 012664 EM9301:: .ASCIZ /BMP CODE REPORT/ 
2155 012704 EM9302:: .ASCIZ /BMP CODE FOUND IN TEST / 
2156 012734 EM9303:: .ASCIZ /THE LAST BMP CODE WAS FOUND IN TEST / 
2157 013001 &M9304:: .ASCIZ /UNEXPECTED BMP CODES FOUND DURING THIS PASS/ 
2158 013055 EM9401:: .ASCIZ /KEYBOARD ECHO (DHV REMOTE LOOPBACK) TEST / 


2160 013127 BORMSG:: .ASCIZ /MODEM BAUDRATE IN BPS:/ 

2161 013156 EMLMSG:: .ASCIZ /TYPE <CR> WHEN MODEM LINK ESTABLISHED:/ 

2162 0135225 EXTMSG:: .ASCIZ /EXIT THE TEST (N = LOOP BACK TO SEND MORE DATA):/ 

2163 0135306 NDPMSG:: .ASCII /NUMBER OF 256 BYTE PATTERNS TO SEND ON EACH SELECTED LINE/ 
2164 013377 »ASCIZ <15><12>/ (1-255, O=SEND UNTIL tC):/ 

2165 013434 PMSMSG:: .ASCIZ /PRINT MODEM STATUS SIGNAL REPORT AFTER EACH PATTERN:/ 
2166 013521 TERMSG:: .ASCIZ /TYPE <CR> TO TERMINATE THE TEST:/ 


2169 ; .LIST BIN 
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2180 -SBTTL GLOBAL ERROR REPORT SECTION 

2181 

2182 soe 

2183 s THE GLOBAL ERROR REPORT SECTION CONTAINS MESSAGE PRINTING AREAS 

2184 s USED BY MORE THAN ONE TEST TO OUTPUT ADDITIONAL ERROR INFORMATION. PRINTB 
2185 s (BASIC) AND PRINTX (EXTENDED) CALLS ARE USED TO CALL PRINT SERVICES. 










2186 for 
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GLOBAL ERROR REPORTING ROUTINE 


2220 


2221 
2222 


2223 
2224 








SEQ 0053 


- EROIOI - 
-SBTTL GLOBAL ERROR REPORTING ROUTINE - ERO1O1 - 


SOCOOSOSOS ESSE ESOS ESOS EAESEEEEESEEEEEEEEEHOEEEOOOEEEEOEEEEEEEEEEEEEEEEEEEEEDEEE 
3¢ This is en error reporting subroutine which prints edditionel error 

36 information if en error is detected in TEST 1 (Register Address 

36 Access Test). This subroutine reports the type of eccess (Reed or 

:@ Write or both) which ceused e bus time-out trap (004 trep). 

s¢ A message indicating thet the DHV may be et the wrong Q-bus address 

34 is elso printed. 


& 

3@ INPUTS: RS - Error fleg word. 

;¢ If bit 0 is set, a reed error occured. 
38 If bit 1 is set, ea write error occured. 
3@ OUTPUTS: Messeges ere printed at the operetor console. 


3@ CALLING SEQUENCE: Include the lebel “ERO101” as the message pointer 
3¢ peremeter in the DRS error report macro cell. 


@ 

3¢ COMMENTS: 

34 

s@ SUBORDINATE ROUTINES USED: None. 


§OOSOOS6 OO SEES OE OEEEEEEE FOSS 66 060066060006000000666000006600006006000056000008006 


BGNNSG €ERO101 





ERO101:: 
SAVE sSAVE THE GPR CONTENTS. 
JSR RS ,PREGOS sCALL REGISTER SAVE SUBRT. 

BIT @BITO,RS sTEST FOR READ ERROR. 

BEQ 2s sSKIP READ ERROR MSG IF NO READ ERROR. 

PRINTB #@MSG1 s;PRINT READ ERROR MESSAGE. 
MOV @MSG1,-(SP) 
MOV #1,-(SP) 
MOV SP ,RO 
TRAP CS$PNTB 
ADO 04,SP 

23: BIT *BIT1,R5 sTEST FOR WRITE ERROR. 

BEQ 4s sSKIP WRITE ERROR MSG IF NO WRITE ERROR. 

PRINTB @MSG2 sPRINT WRITE ERROR MESSAGE. 
MOV @MSG2, -( SP) 
MOV #1,-(SP) 
MOV SP RO 
TRAP C$PNTB 
ADD 04 ,SP 

43: PRINTX @MSG3 sSUGGEST THAT DHV MAY BE AT WRONG ADDRESS. 

MOV #1,-(SP) 
MOV SP ,RO 
TRAP C$PNTX 
ADD $4 ,SP 

PASS sRESTORE THE GPR CONTENTS. 

JSR PC ,A(SP)-+ sRETURN TO PREGOS SUBRT. 
ENDMSG 
L1000e2: 

TRAP C$MSG 

-NLIST BEX 3$$$ 
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- EROIOI - 

-ASCIZ /SABUS TIME-OUT TRAP CAUSED BY READ ATTEMPT. «N/ 
-ASCIZ /SABUS TIME-OUT TRAP CAUSED BY WRITE ATTEMPT. sN/ 
-ASCIZ /SADHV MAY BE AT THE WRONG Q-BUS ADDRESS. sNSN/ 


-EVEN 


GLOBAL ERROR REPORTING ROUTINE 


2225 013666 04s 101 
2226 013744 045 101 
2227 014023 045 101 
2228 
2229 





MSG1:: 
MSG2: : 
MSG3:: 





SEQ 0054 


r-— 





2248 

2249 014100 
014100 

2250 

2251 014100 
014100 
014102 
014106 
014112 
014114 
014116 

2252 

2253 014122 
014122 
014122 
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SEQ 0055 


- EROSOS - 

-SBTTL GLOBAL ERROR REPORTING ROUTINE - EROSOS - 

SOCOEOOSESEEEEES SEER ES EEERESESESSSESEEEEEEDEDEEEEEEEEDEEEEODEDEEEEEEEEEEEEEEEES 
;¢ This is an error reporting subroutine which prints en additionel error 
3¢ message whose eddress is pessed as an input peremeter. 

Se 

3 INPUTS: Rl - Address of the message to print. 

34 

3@ OUTPUTS: A messages is printed at the operator console. 

34 

3# CALLING SEQUENCE: Load the address of the messege in R1. 

;¢ Include the label “EROSO3” as the message pointer 

3@ peremeter in the Diag Super error report macro cell. 
3% 


3@ COMMENTS: The message is printed as Basic error information. 


; 
3# SUBORDINATE ROUTINES USED: None. 
FECRESSSEESERES SEES EAESESEAESEEEEEEEEEEEEEEEEEEEE DA EHEAEEEEEEEEEDEEEDEEEREDEES 


BGNMSG EROSO3 





EROSOS:: 
PRINTB #€FOS503,R1 sPRINT THE MESSAGE. 
MOV R1,-(SP) 
MOV EF 0503, -( SP) 
MOV 
ENDMSG 
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2280 
2281 
2282 


2283 
2284 


2285 


r-— 


014124 
014124 
014124 
014124 


014130 
014130 
014132 
014136 
014142 
014144 
014146 


014152 
014156 
014156 
014160 
014164 
014170 
014172 
014174 


014200 
014200 
914202 
014202 
014202 





004537 


010146 
012746 
012746 
010600 
104414 
062706 


013702 


010246 
012746 
012746 
010600 
104414 
062706 


004736 


104423 











SEQ 0056 
- ER1603 - 
-SBTTL GLOBAL ERROR REPORTING ROUTINE - ER1603 - 
FOLSASSOHEESEEEEEE SEES EAEEEEEEEASEEEEEEEEEEEEDEEEDEEODEEOEEEOEEDEEEDEEEEOEREDEEE 
34 This error reporting routine is used to print out @ basic error 
34 message, along with e message informing the operator which test is 
:* ebout to be eborted. 
34% 
3@ INPUTS: Ri - Contains the address of the message to be printed. 
34 ERRMSG - Contains the eddress of the mes that indicates 
i# the test thet is being performed, eg DMA, BREAK etc. 
3* 
3@ OUTPUTS: Messages ere printed at the operators console. 
34 “testname TEST ABORTED” 
34% 
3# CALLING SEQUENCE: Include the lable “ER1603” as the message pointer 
34 parameter in the ORS error report macro call. 
3% 
3 COMMENTS: 
34 
3# 


s# SUBORDINATE ROUTINES CALLED: None. 
jPPRREEEEEEEEEOE EOS 4O 666644 4644460600 04 044000000000000000000000000000000000008 


BGNMSG €ER1603 


ER1603:: 
SAVE ;SAVE THE CONTENTS OF THE GPRS. 
JSR R5 ,PREGOS ;CALL REGISTER SAVE SUBRT. 
PRINTB @€F0503,R1 sPRINT BASIC MESSAGE ON OPERATORS CONSOLE. 
MOV R1,-C(SP) 
MOV #EFO503, -( SP) 
MOV #2,-(SP) 
MOV SP ,RO 
TRAP CS$PNTB 
' ADD #6 ,SP 
MOV ERRMSG ,R2 ;GET THE “TEST MESSAGE”. 
PRINTB #€F1601,R2 sPRINT “TEST ABORTED” MESSAGE. 
MOV R2,-(SP) 
MOV EF 1601, -(SP) 
MOV SP RO 
TRAP CSPNTB 
ADD #6 ,SP 
PASS sRESTORE THE CONTENTS OF THE GPRS. 
JSR PC ,aCSP)+ ;RETURN TO PREGOS SUBRT. 
ENDMSG 
L10004: 
TRAP C$MSG 
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SEQ 0057 
GLOBAL ERROR REPORTING ROUTINE ' = ER6201 - 
2287 -SBTTL GLOBAL ERROR REPORTING ROUTINE - ER6201 - 
2288 FEOSAESEESEEESEEEEEEEEEEESEEEEEEEEEEEDEE DEES OE OEEEDDODDDODOOODOEOEEDEEEEDEEEEES 
2289 3@ This is en error reporting subroutine which is intended for use in the 
2290 1@ framing error and perity error tests. It reports error information 
2291 st when a cherecter has been read from the DUT with the incorrect 
pote 3¢ combination of Framing and Parity error bits. 
3* 
2294 3# INPUTS: R2 - Date byte read from the DUT, including error flags. 
2295 34 R3 - Line number multiplied by 2. 
2296 78 RS - Message flegs, which messages to report. 
2297 34 Bitl and bit3 - indicate which messages are to be 
2298 ;* reported, Framing or Parity respectively. 
2299 pa BitO and bit 2 - “Set”/"Clear” message for 
ae 34 framing and parity errors bits. ' 
3# 
coon 3# OUTPUTS: Messages are printed at the operator console. 
3* 
2304 3# CALLING SEQUENCE: Include the label “ER6201” as the message pointer 
cay 34 peremeter in the Diag Super error report macro cell. 
3* 
2307 3 COMMENTS: The message is printed as Basic and Extended error information. 
2308 rh The contents of the Indirect address register field of the DUT 
2309 3* CSR may be altered. 
2310 :* 
2311 s* SUBORDINATE ROUTINES USED: PRTLPR. 
2312 PRESSE EEEEEEEEEEESEEERESEEEEEEESEEEEEEEDEE DEED EEEDEDEEDEEEEEEDEEREREEREREEEES 
2313 
2314 014204 BGNMSG ER6201 
014204 ER6201:: 
2315 014204 SAVE sSAVE THE CONTENTS OF THE GPR‘S. 
os 014204 004537 005326 JSR RS ,PREGOS sCALL REGISTER SAVE SUBRT. 
16 
2317 014210 016304 005236 MOV TXRXLB(R3),R4  ;GET THE ASSOCIATED TX LINE NUMBER. 
2318 014214 006203 ASR R3 sCALCULATE THE RX LINE NUMBER. 
2319 014216 006204 ASR R4 sCALCULATE THE ASSOCIATED LINE NUMBER. 
2320 014220 PRINTB €F6201,R3,.R4  ;REPORT THE ERROR TYPE AND LINE NUMBERS. 
014220 010446 MOV R4,-CSP) 
014222 010346 MOV R3,-CSP) 
014224 012746 005671 MOV EF 6201, -( SP) 
014230 012746 000003 MOV #3,-(SP) 
014234 010600 MOV SP ,RO 
014236 104414 TRAP C$PNTB 
014240 062706 000010 ADD #10,SP 
2321 i¢ 
soot ; Report Framing Error Problem. 
- 
2324 014244 012704 011166 MOV %EM6202 ,R4 sSELECT THE “ERROR BIT CLEAR” MESSAGE. 
2325 014250 012701 010130 _—«. MOV #EM0509,R1 sSELECT EXPECTED “ERROR BIT SET” MESSAGE. 
2326 014254 032705 000002 BIT #BIT1,R5 sTEST IF FRAMING ERROR MESSAGE TO BE REPORTED. 
2327 014260 001427 BEQ 6$ sBRANCH TO REPORT PARITY ERROR. 
2328 014262 032705 000001 BIT #BITO,RS sTEST “ERROR BIT SET/CLEAR” MESSAGE FLAG. 
2329 014266 001403 BEQ 2s sBRANCH TO REPORT ERROR BIT “CLEAR”. 
2330 014270 010401 MOV R4,R1 sSELECT EXPECTED “CLEAR” STATE MESSAGE. 
2331 014272 012704 010130 MOV #EM0509,R4 sSELECT THE “ERROR BIT SET” MESSAGE. 
2332 014276 2s: PRINTX #EF6202,R4,R1 ;REPORT THE SOURCE OF THE PROBLEM. 
014276 010146 MOV R1,-CSP) 


014300 010446 MOV R4,-(SP) 
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SEQ 0058 
GLOBAL FIROR REPORTING ROUTINE - ER6201 - 

014302 012746 006004 MOV *€F 6202, -( SP) 
014306 012746 000003 MOV @3,-(SP) 
014312 010600 MOV SP RO 
014314 104415 TRAP CSPNTX 
014316 062706 000010 ADD #10,SP 

2333 014322 032705 000010 BIT *BIT3,RS sTEST IF PARITY ERROR MESSAGE TO BE REPORTED. 

2334 014326 001424 BEQ 10$ sEXIT IF PARITY ERROR REPORT TO BE SKIPPED. 

2335 014330 012704 011166 MOV EM6202 ,R4 sSELECT THE “CLEAR” MESSAGE. 

toes 014334 012701 010130 MOV #EM0509,R1 sSELECT THE EXPECTED “SET” STATE MESSAGE. 

3¢ 

2338 :; Report Parity Error Problem. 

3340 - 

2341 014340 032705 000004 6$: BIT #B8IT2,R5 sTEST “SET”/"CLEAR” MESSAGE FLAG. 

2342 014344 001403 BEQ 8$ sBRANCH TO REPORT ERROR BIT CLEAR. 

2343 014346 010401 MOV R4,R1 sSELECT THE EXPECTED “CLEAR” STATE MESSAGE. 

2344 014250 012704 010130 MOV @EM0509,R4 sSELECT THE “ERROR BIT SET” MESSAGE. 

2345 014354 8s: PRINTX @€F6203,R4,R1 ;REPORT THE SOURCE OF THE PROBLEM. 
014354 010146 MOV R1,-CSP) 
014356 010446 MOV R4,-(SP) 
014360 012746 006102 MOV EF 6203, -(SP) 
014364 012746 000003 MOV @3,-(SP 
014370 010600 MOV SP ,RO 
014372 104415 TRAP CS$PNTX 

wees 014374 062706 000010 ADD #10,SP 

2347 014400 10$: PRINTX #€F1603,R2 sREPORT ACTUAL DATA RECEIVED. 
014400 010246 MOV R2,-CSP) 
014402 012746 005512 MOV *€F 1603, -( SP) 
014406 012746 MOV #2,-(SP) 
014412 010600 MOV »RO 
014414 104415 TRAP CSPNTX 

omen 014416 062706 000006 ADD 06 ,SP 

2349 014422 004737 023070 JSR PC ,PRTLPR sREPORT THE CONTENTS OF THE LPR FOR THIS LINE. 

2350 014426 60$: PASS sRESTORE THE CONTENTS OF THE GPR’‘S. 
014426 004736 JSR PC AC SP)+ sRETURN TO PREGOS SUBRT. 

2351 014430 ENDMSG 
014430 L10005: 
014430 104423 TRAP C$MSG 
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0 
2376 


2377 


2378 
2379 


010146 
012746 
012746 
010600 
104414 
062706 


010446 
012746 
012746 
010600 
104415 
062706 


010246 
012746 
012746 
010600 
104415 
062706 


104423 


006266 


006422 


SEQ 0059 
- ER9001 - 
-SBTTL GLOBAL ERROR REPORTING ROUTINE - ER9O01 - 
§ OOO EEOESEEEEEEE EES 6444666404666 06 000600000000 04 0000 00000000 00000000000000 08408 
3¢ This is en error reporting subroutine which reports an unexpected 
3@ code which hes been found in the DUT CSR. This code cen be « BMP 
:@ code, a Self-test code, or a Modem Status code. 
3% 
3# INPUTS: Rl - Address of message to print first. 
3¢ R2 - Single byte code which hes been read from the DUT. 
:* R4 - Line number associated with the code. 
;* 
3@ OUTPUTS: A messages is printed at the operator console. 
7* 
3# CALLING SEQUENCE: Include the label “ER9001” as the message pointer 
34 peremeter in the Diag Super error report macro cell. 
34 
3 COMMENTS: The message is printed as Basic and Extended error information. 
* 


; 
s# SUBORDINATE ROUTINES USED: None. 
§ PRS OS ESSE EE OD EEO OS 666660000406 0600000000000606 06 00040600000000000000000000008 


BGNMSG 


PRINTB 


PRINTX 


PRINTX 


ENDMSG 


ER9001 


#€F9001,R1 


%€F 9002 ,R4 


#€F9003,R2 





ER9001:: 


sREPORT TYPE OF CODE FOUND. 
Ri, -(SP) 
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SEQ 0060 
GLOBAL ERROR REPORTING ROUTINE - ER9002 - 
2381 -SBTTL GLOBAL ERROR REPORTING ROUTINE - ER9002 - 
2382 § OOOO OEOE 666666 660606600606 0006000006 0006 600000 0006000000000000000000000080008 
2383 34 This is en error reporting subroutine which is intended for use in the 
2384 3@ tranmsission and reception tests. It reports the type of error which 
2385 34 hes occurred when incorrect date is received from the DUT. This 
tae ff routine also reports the read end expected date velues. 
3% 
2388 s@ INPUTS: Rl - Address of message to print first. 
2389 i* R2 - Dete byte read from the DUT. 
2390 34 R3 - Line number multiplied by 2. 
coos ;@ R4 - Expected date byte, bit 15 set if “NONE”. 
3* 
5398 3# OUTPUTS: A messages is printed at the operator console. 
;* 
2395 3# CALLING SEQUENCE: Include the label “ER9002” as the message pointer 
eons 34 peremeter in the Diag Super error report macro cell. 
3% 
tae 3 COMMENTS: The message is printed as Basic and Extended error information. 
3* 
2400 s* SUBORDINATE ROUTINES USED: PRTLPR. 
2401 5 POS S866 6666666666 4600006060606660000060606 0000000606 660000060000 004000000040804 
2402 
2403 014522 BGNMSG ER9002 
nese 014522 ER9002: : 
2405 014522 006203 ASR R3 sCALCULATE THE LINE NUMBER. 
2406 014524 042702 177400 BIC #177400,R2 sMASK OUT ALL BUT DATA IN READ CHAR. 
2407 014530 PRINTB @€F9006,R1,R3  ;PRINT THE FIRST LINE OF THE MESSAGE. 
014530 010346 MOV R3,-C(SP) 
014532 010146 MOV Ri,-CSP) 
014534 012746 006532 MOV EF 9006, -( SP) 
014540 012746 000003 MOV @3,-(SP) 
014544 010600 MOV SP ,RO 
014546 104414 TRAP C$PNTB 
014550 062706 000010 ADD #10, SP 
2408 014554 PRINTX #€F9004, #EM9010,R2 sPRINT ACTUAL DATA. 
014554 010246 MOV R2,-C(SP) 
014556 012746 011604 MOV 9EM9010, -(SP) 
014562 012746 006451 MOV EF 9004, -( SP) 
014566 012746 000003 MOV #3 ,-(SP) 
014572 010600 MOV SP ,RO 
014574 104415 TRAP C$PNTX 
014576 062706 000010 ADD #10, 
2409 014602 005704 TST R4 sCHECK FOR “NONE” CODE SET IN EXPECTED DATA. 
2410 014604 100414 BMI 2s sBRANCH TO PRINT “NONE” MESSAGE IF FLAG SET. 
2411 014606 PRINTX #€F9004, #EM9009,R4 sPRINT EXPECTED DATA. 
0146906 010446 MOV R4,-(SP) 
014610 012746 011560 MOV #EM9009, -( SP) 
014614 012746 006451 MOV EF 9004, -( SP) 
014620 012746 000003 MOV #3,-(SP) 
014624 010600 MOV SP ,RO 
014626 104415 TRAP C$PNTX 
014630 062706 000010 ADD #10,SP 
2412 014634 000412 BR 60$ sEXIT THIS ROUTINE. 
2413 014636 2s: PRINTX #€F9005,@EM9009 ;PRINT MESSAGE INDICATING NO EXPECTED DATA. 
014636 012746 011560 MOV #EM9009, -( SP) 
014642 012746 006501 MOV EF 9005, -( SP) 
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SEQ 0062 
GLOBAL ERROR REPORTING ROUTINE - ER9003 - 
2417 -SBTTL GLOBAL ERROR REPORTING ROUTINE - ER9003 - 
2418 §OOOEO 66666666000 6666 0060406006 0004000046006 0006 0606000000000000000000006000000088 
2419 ;4 This is en error reporting subroutine which is intended for use in the 
2420 34 tranmsission and reception tests. It reports error information when 
2421 :# @ cherecter has been read from the DUT with an error fleg or flags 
or 3% set Cie. over-run, framing, or perity fleg). 
3* 
2424 :* INPUTS: R2 - Date byte read from the DUT, including error flags. 
aoe :* R3 - Line number multiplied by 2. 
;* 
aoe 3# OUTPUTS: A messages is printed at the operator console. 
;* 
2429 s# CALLING SEQUENCE: Include the label “ER9003” as the message pointer 
44 ae perameter in the Dieg Super error report macro cell. 
3* 
2432 3# COMMENTS: The message is printed as Basic and Extended error information. 
2433 34 The contents of the Indirect address register field of the DUT 
2434 3* CSR may be altered. 
2435 3% 
2436 3* SUBORDINATE ROUTINES USED: None. 
2437 Fa cialalashaciachatatntetetettetetahtehtehethbe ett tL LLL TLL TTT TTT TTT TTT TTT ttt 
2438 
2439 014670 BGNMSG ER9003 
014670 ER9003: : 
2440 
2441 014670 006203 ASR R3 sCALCULATE THE LINE NUMBER. 
2442 014672 PRINTB #€F9007,R3 sREPORT THE ERROR TYPE AND LINE NUMBER. 
014672 010346 MOV R3,-C(SP) 
014674 012746 006551 MOV @EF OC OT, -C( SP) 
014700 012746 000002 MOV @2,-(SP) 
014704 010600 MOV SP FO 
014706 104414 TRAP C$PI.TB 
014710 062706 000006 ADD 46 ,5P 
2443 014714 010201 MOV R2,R1 sEXTRACT THE RECEIVED CHARACTER FROM THE 
2444 014716 042701 177400 BIC #177400,R1 s_ PASSED IN CHAR VALUE WITH FLAGS. 
2445 014722 PRINTX #€F9008,R1 sREPORT THE VALUE OF THE RECEIVED CHAR. 
014722 010146 MOV R1,-(SP) 
014724 012746 006645 MOV EF 9008, -( SP) 
014730 012746 000002 MOV 2,-(SP) 
014734 010600 MOV SP ,RO 
014736 104415 TRAP CS$PNTX 
014740 062706 000006 ADD #6 ,SP 
2446 i¢ 
ort ; Report OVERRUN flag set if necessary. 
ge 
2449 014744 012701 011630 MOV #€M9011,R1 sSELECT THE OVERRUN ERROR MESSAGE. 
2450 014750 032702 040000 BIT $BIT14,R2 sCHECK OVERRUN ERROR FLAG IN PASSED IN CHAR. 
2451 014754 001402 BEQ 2s sSKIP ERROR IF OVERRUN ERROR FLAG WAS CLEAR. 
aeae 014756 004737 015020 JSR PC ,50$ sREPORT THE OVERRUN ERROR FLAG WAS SET. 
3¢ 
oes ; Report FRAMING flag set if necessary. 
26 ioe 
2456 014762 012701 011640 23: MOV #€M9012,R1 sSELECT THE FRAMING ERROR MESSAGE. 
2457 014766 032702 020000 BIT #6IT13,R2 sCHECK FRAMING ERROR FLAG IN PASSED IN CHAR. 
2458 014772 001402 BEQ 4s sSKIP ERROR IF FRAMING ERROR FLAG WAS CLEAR. 
pee 014774 004737 015020 JSR PC ,50$ sREPORT THE FRAMING ERROR MESSAGE. 
3¢ 


- 
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SEQ 0063 
GLOBAL ERROR REPORTING ROUTINE - ER9003 - 
oeet ; Report PARITY fleg set if necessery. 
ad 
2463 015000 012701 011650 43: MOV @€M9013,R1 sSELECT THE PARITY ERROR MESSAGE. 
2464 015004 032702 010000 BIT #61T12,R2 sCHECK PARITY ERROR FLAG IN PASSED IN CHAR. 
2465 015010 001415 BEQ 603 sEXIT ROUTINE IF PARITY ERRO FLAG WAS CLEAR. 
2466 015012 004737 015020 JSR PC 508 sREPORT THE PARITY ERROR MESSAGE. 
2467 015016 000412 BR 60$ sEXIT THIS ROUTINE. 
2468 
2469 :¢ 
pode ; Locel subroutine to report an error flag stetus. 
ipa 
2472 015020 50$: PRINTX #€F9009,R1 
015020 010146 MOV R1,-CSP) 
015022 012746 006704 MOV #€F9009, -( SP) 
015026 012746 000002 MOV #2,-(SP) 
015032 010600 MOV SP ,RO 
015034 104415 TRAP CSPNTX 
015036 062706 000006 ADD #6 ,SP 
odd 015042 000207 RTS PC 
2475 015044 004737 023070 60$: JSR PC ,PRTLPR sREPORT THE LPR CONTENTS FOR THIS LINE. 
2476 015050 ENOMSG 
015050 L10010: 
015050 104423 TRAP 





- 








2499 015052 
015052 

2500 

2501 015052 


015072 
2502 015076 
2503 015100 
2504 015104 
2505 015106 
2506 015110 
2507 015112 
2508 015114 

015114 





2509 015142 
2510 015144 
2511 015146 
2512 015150 
2513 

2514 015152 


011657 
005461 
000002 


000006 








- ER9004 - 
SBTTL GLOBAL ERROR REPORTING ROUTINE 


CVDHCDO DHV11-M FUNC TST PART 3 MACRO VOS.00 Thursday 25-Apr-85 16:37 Page 50 
GLOBAL ERROR REPORTING ROUTINE 






- ER9004 - 


§ OOOSSEE 166606 06060006 6060000006 00600000000000000000000000000000000000000000008 
This is en error reporting subroutine which reports error summer ies 

for lines which have exceeded the specified meximum number of 
individuel reception errors. 


INPUTS: 


OUTPUTS: 


CALLING SEQUENCE: 


COMMENTS: 


Ri - Address of message to print first. 
ERCNTB - Lebel et bese of line error counters teble. 
ERSMRF - “Report error summery for line” flags. 


A messege is printed at the operator console. 


Include the label “ER9004” es the message pointer 
peremeter in the Dieg Super error report macro cell. 


The message is printed as Basic and Extended error information. 
The contents of GPR’'s R2, R3, R4, and R5 ere destroyed. 


— . 
3# SUBORDINATE ROUTINES USED: None. 
§ OOOO O666 0666 660606 600660606660606 60060600000600006000600000000006000000000000008 


BGNMSG ER9004 


2s: 


4$: 


PRINTB 





ER9004: : 
EFOSO3,@EM9014 ;REPORT THE SECONDARY ERROR MESSAGE. 
MOV @EM9014, -( SP) 


MOV @€F 0503, -( SP) 
MOV @2,-(SP) 


MOV SP ,RO 
TRAP CSPNTB 
ADD #6 ,SP 

R2 sCLEAR THE LINE COUNTER. 

ERSMRF ,R3 sGET THE ERROR SUMMARY FLAGS. 

R4 sCLEAR “LINE COUNTER TIMES 2” OFFSET. 

sCLEAR THE CARRY FOR THE FOLLOWING ROTATE. 

R3 sSHIFT ANOTHER ERROR SUMMARY FLAG INTO CARRY. 

4s sSKIP PRINTING MESSAGE IF FLAG FOR LINE CLEAR. 

#€F9010,R2,ERCNTBC(R4) 


MOV “yer: - iene 


ADD #10,SP 
CR4)+,RS sINCREMENT THE LINE OFFSET BY 2. 
R2 sINCREMT THE LINE COUNTER. 
R3 sCHECK THE ERROR SUMMARY FLAGS. 
2s sIF MORE FLAGS SET, LOOP TO DO OTHER LINES. 
L10011: 
TRAP C$MSG 
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GLOBAL ERROR REPORTING ROUTINE - ER9005 - 
-SBTTL GLOBAL ERROR REPORTING ROUTINE - ER900S - 






















2517 §OOS660666 06660006 00066666 0600000066006606000000000060000000000000000000000006008 
2518 3¢ This is en error reporting subroutine which reports incomplete dete 
peat 3¢ trensaissions or receptions. 
3% 
2521 3 INPUTS: Ri - Either “TRANSMITTED” or “RECEIVED” to indicate TX or RX. 
2522 sm R2 - Bit map of lines which did not complete TX or RX. 
2523 7s R4 - Address of base of the correct cherecter counters teble. 
2524 ;@ OPLENB - Lebel et bese of dete pattern length teble. 
aay 3% EM9015 - Symbolic eddress of the “TRANSMITTED” message. 
34 
44 3@ OUTPUTS: A messege is printed et the operator console. 
3% 
2529 s@ CALLING SEQUENCE: Include the lebel “ER9005” es the message pointer 
See 3% peremeter in the Dieg Super error report macro cell. 
34 
2532 3@ COMMENTS: The message is printed es Basic and Extended error information. 
2533 i& The contents of the indirect eddress field in the DUT CSR may 
2534 34 be eltered. 
2535 34 
2536 3 SUBORDINATE ROUTINES USED: PRTLPR. 
2537 §SSOOS Ob 60606000 00600000 00 00 000000000000006000000000000000000000600000000000000 
2538 
2539 015154 BGNMSG ER9005 
015154 ER9005:: 
2540 015154 SAVE sSAVE THE CONTENTS OF THE GPR‘S. 
enna 015154 004537 005326 JSR RS ,PREGOS sCALL REGISTER SAVE SUBRT. 
2542 015160 PRINTB #€F9013,R1 sREPORT THE SECONDARY ERROR MESSAGE. 
015160 010146 MOV R1,-C(SP) 
015162 012746 007146 MOV EF 9013, -(SP) 
015166 012746 000002 MOV @2,-(SP) 
015172 010600 MOV SP RO 
015174 104414 TRAP CsPNTB 
015176 062706 000006 ADD #6 SP 
2543 015202 005003 CLR R3 sCLEAR THE LINE COUNTER. 
2544 015204 022701 011753 CMP #EM9015,R1 sCHECK IF ADDRESS CORRESPONDS TO TX MESSAGE. 
oaen 015210 001032 BNE 6% sBRANCH IF RECEPTION MESSAGE TO BE PRINTED. 
2547 s¢ 
ae s Perform TX incomplete error message reporting. 
i- 
2550 015212 PRINTX #€M9030 sPRINT “NO TX COMPLETION INTERRUPTS RECEIVED” 
015212 012746 012366 MOV 












015226 062706 000004 ADD 4 ,SP 
2551 015232 000241 2s: cic sCLEAR THE CARRY FOR THE FOLLOWING ROTATE. 
2552 015234 006002 ROR Re sSHIFT “TX NOT DONE” FLAG INTO CARRY. 
2553 015236 103013 Bcc as sSKIP PRINTING MESSAGE IF FLAG FOR LINE CLEAR. 
2554 eee memes PRINTX #€F9020,R3 sPRINT “TOO FEW TX.ACTIONS GENERATED” MSG. 








SP RO 
015254 104415 TRAP COPNTX 
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GLOBAL ERROR REPORTING ROUTINE - EROOOS - 
015256 062706 000006 Aad0d 06 SP 

2555 015262 004737 023070 JSR PC .PRTLPR sREPORT CONTENTS OF LPR REGISTER FOR THIS LINE. 

2556 015266 005203 4s: INC R3 s INCREMENT LINE COUNTER. 

2557 015270 005702 TST R2 sCHECK THE “TX NOT DONE FLAGS’. 

2558 015272 001357 BNE 2s sIF MORE FLAGS SET, LOOP TO DO OTHER LINES. 

Ea 015274 000640 eR 108 sEXIT THIS ROUTINE. 

%* 
ooee s Perform RX incomplete error messege report ing. 
'- 

2563 015276 000241 63: cic sCLEAR THE CARRY FOR THE FOLLOWING ROTATE. 

2564 015300 006002 ROR Re sSHIFT “RX NOT DONE” FLAG INTO CARRY. 

2565 015302 103031 ecc as sSKIP PRINTING MESSAGE IF FLAG FOR LINE CLEAR. 

2566 015304 006303 ASL R3 sSHIFT LINE @ TO GIVE CORRECT TABLE OFFSET. 

2567 015306 016305 005236 MOV TXRXLBC(R3).RS sGET THE “ASSOCIATED” RECEIVE LINE OFFSET. 

2568 015312 010246 MOV R2,-C(SP) sSAVE THE “RX NOT DONE” FLAGS ON THE STACK. 

2569 015314 010502 MOV RS ,R2 sCOPY THE ASSOCIATED 1X LINE OFFSET. 

2570 015316 016505 003444 MOV CHCNTB(RS).RS sGET THE TOTAL NUMBER OF EXPECTED CHARS 

2571 015322 006202 ASR R2 sSHIFT THE TABLE OFFSET 10 GIVE A LINE NUMBER. 

2572 015324 006203 ASR R3 sSHIFT TABLE OFFSET TO GIVE LINE NUMBER. 

2573 015326 PRINTX @€F9012,R3,R1,(R4),.RS,R2 ;REPORT NUMBER OF CHARS ON LINE. 
015326 010246 MOV R2,-(SP) 
015330 010546 MOV RS5.-(SP 
015332 011446 MOV (R4),-CSP) 
015334 010146 MOV 1.-¢ 
015336 010346 MOV R3,-(SP) 
015340 012746 007032 MOV @€F9012, -( SP) 
015344 012746 000006 MOV 6,-( 
015350 010600 MOV < 
015352 104415 TRAP CSPNTX 
015354 062706 000016 ADO #16,SP 

2574 015360 012602 MOV (SP)+,R2 sRESTORE THE “RX NOT DONE” FLAGS. 

2575 015362 004737 023070 JSR PC ,PRTLPR sREPORT CONTENTS OF LPR REGISTER FOR THIS LINE. 

2576 015366 005724 83: TST (R4)> sINCREMENT THE CHARACTER COUNTER TABLE. 

2577 015370 005203 INC R3 sINCREMENT THE LINE COUNTER. 

2578 015372 005702 TST R2 s;CHECK THE “RX NOT DONE FLAGS’. 

2579 015374 001340 BNE 63 sIF MORE FLAGS SET, LOOP TO DO OTHER LINES. 

2580 015376 108: PASS sRESTORE THE CONTENTS OF THE GPRS. 

015376 004736 JSR PC ,.a(SP)-+ s;RETURN TO PREGOS SUBRT. 

2581 015400 ENDMSG 
015400 L10012: 

015400 104423 TRAP C$MSG 





_ a 
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GLOBAL ERROR REPORTING ROUTINE ~ ER9101 - 

2583 -SBTTL GLOBAL ERROR REPORTING ROUTINE - ERPIO1 - 

2584 FOSOOEOEESESESOSESEEEEEEESESSESESEESESESESEEESESEEESEREROEEESEEEEEEESEOEEEESESE 

2585 3¢ This is @ general error reporting subroutine which reports e message 

2586 :* which tekes @ single, 2 digit decimal ergument efter the end of en 

2587 ie ASCII message. 

2588 s@ 

2589 +@ INPUTS: Rl - Velue to be printed efter es 2 decimal digits. 

2590 s6 R2 - Address of message to print first. 

2591 s¢ 

ye | s@ OUTPUTS: A messeges is printed at the operator console. 

259 3¢ 

2594 s@ CALLING SEQUENCE: Include the lebel “ER9101” as the nessage pointer 

2595 3@ peremeter in the Dieg Super error report macro cell. 

25%6 se 

2597 3@ COMMENTS: The sessege is printed es Besic error information. 

2598 s 

2599 7@ SUBORDINATE ROUTINES USED: None. 

2600 FOOSE OSES OSEEESESEEEE SEES ESEEEEESEEEEEEOEEEEREEEEEDEEEEOEEEEEEEEDEEOEEODEE 

2601 

2602 015402 BGNMSG ER9101 

5 015402 ER9101:: 

260 

2604 015402 PRINTB @€F9006,R2,R1 ;REPORT THE STRING FOLLOWED BY THE NUMBER. 
015402 010146 MOV R1,-(SP) 
015404 010246 MOV R2,-C SP) 


015426 ENDMSG 
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SEQ 0068 
GLOBAL ERROR REPORTING ROUTINE - ER9102 - 
2608 -SBTTL GLOBAL ERROR REPORTING ROUTINE - ER9102 - 
2609 FOOSE OSESES OSES ESOS EEEESEEEEEEDEEEEOEEEOE4EEEOEO46600000060000006000000000568608 
2610 3¢ This is en error reporting subroutine which prints edditionel error 
2611 36 information efter the error message header. 
2612 3¢ This routine is pessed e bit map which specifies the lines for which 
peek 3¢ the error condition should be reported. 
3¢@ 
2615 3@ INPUTS: Ri - Address of the message to be printed by this routine. 
ote 3:4 R2 - Bit map of lines for which to report errors. 
3¢@ 
ty 3@ OUTPUTS: Messages ere printed at the operator console. 
34 
2620 3@ CALLING SEQUENCE: Loed the eddress of the message in R1. 
2621 34 Loed the bit map of lines with errors in R2. 
2622 :@ Include the label “ER9102” es the message pointer 
2623 ;¢ CERRBLK) in the Diag Super error report macro cell. 
34 
2625 3 COMMENTS: The output format of this message is: 
2626 3¢ “TEXT MESSAGE POINTED TO BY R1” 
2627 3 “ERROR CONDITION ON LINE nn” 
2628 i “ERROR CONDITION ON LINE ...” 
2629 :@ The top message, and the message for each line are printed 
eae i* es besic error information. 
jt 
2632 3 SUBORDINATE ROUTINES USED: None. 
2633 FOOSE EEES ESSE SEES EEE EEEEEEEEEE OE HDOEEEOEOOEEEEEEEEEEEEEEEEEEEDEREDEEEREDEDE 
2634 
2635 015430 BGNMSG ER9102 
015430 ER9102:: 
2636 015430 SAVE sSAVE THE CONTENTS OF THE GPRS. 
—_ 015430 004537 005326 JSR RS ,PREGOS ;CALL REGISTER SAVE SUBRT. 
2638 015434 PRINTB #€F0503,R1 sPRINT THE FIRST LINE OF THE MESSAGE. 
015434 010146 MOV R1,-(SP) 
015436 012746 005461 MOV #EFO503, -( SP) 
015442 012746 MOV #2,-(S 
015446 010600 MOV »RO 
015450 104414 TRAP C$PNTB 
015452 062706 000006 ADD #6, SP 
2639 015456 005003 CLR R3 sCLEAR THE LINE NUMBER. 
2640 015460 000241 23: cLC sPREPARE TO ROTATE NEXT BIT OUT OF MAP. 
2641 015462 006002 ROR R2 sGET THE NEXT BIT OF THE BIT MAP. 
2642 015464 103011 BCC 43 sSKIP PRINTING MESSAGE IF THE BIT IS CLEAR. 
2643 015466 PRINTB #€F9103,R3 sREPORT THIS LINE HAD THE ERROR. 
015466 010346 MOV R3,-CSP) 
015470 012746 007316 MOV EF9103, -(SP) 
015474 012746 000902 MOV #2,-(SP) 
015500 010600 MOV SP ,RO 
015502 104414 TRAP C$PNTB 
015504 062706 000006 6 ,SP 
2644 015510 005203 4$: INC R3 s INCREMENT THE LINE COUNTER. 
2645 015512 005702 TST R2 ;CHECK THE BIT MAP. 
2646 015514 001361 BNE 2s sLOOP IF NOT ALL SET BITS REMOVED FROM BIT MAP. 
2647 015516 PRINTB #€F9101 s;PRINT A BLANK LINE. 
015516 012746 007313 MOV #€F9101,-( SP) 
015522 012746 000001 MOV #1,-(SP) 
015526 010600 MOV SP ,RO 
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SEQ 0069 
GLOBAL ERROR REPORTING ROUTINE - ER9102 - 
015530 104414 TRAP CSPNTB 
015532 062706 000004 ADO 04,SP 
2648 015536 60$: PASS sRESTORE THE SAVED CONTENTS OF THE GPRS. 
015536 004736 JSR PC ,@C(SP)+ sRETURN TO PREGOS SUBRT. 
2649 015540 ENOMSG 
015540 L10014: 
015540 104423 TRAP C$MSG 
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GLOBAL ERROR REPORTING ROUTINE - EROSO1 - 
2651 -SBTTL GLOBAL ERROR REPORTING ROUTINE - ER9O301 - 
2652 §OSOOEESOE OSES EEE ED OE OE OEO6O66604 066640000000 04046000000 00000006 0000046000008086 
2653 :@ This is en error reporting subroutine which prints eny BMP codes 
2654 3¢ thet ere found in the BMP code queue, together with the the number of 
a i the test thet wes executing et the time the BMP code was logged. 
3@ 
2657 3@ INPUTS: Ri - The eddress of the first message to be reported. 
ones 7 R2 - The address of the next empty cell in the queue. 
34 
3@ OUTPUTS: The test number followed by the BMP code are printed at the 
2661 34 operator console. 
2662 ;* 
2663 s# CALLING SEQUENCE: Include the label “ER9301” as the message pointer 
pores i* peremeter in the Dieg Super error report macro cell. 
3* 
aoee 3¢@ COMMENTS: The message is printed es Basic error information. 
3* 
2668 3# SUBORDINATE ROUTINES USED: None. 
2669 FEROS EEAEEEEEEESEEEEEEEEEEEESEEERESEEEESEEEEEEEEDEEEDEEOEEDEDEEERED ERED ESEEE 
2670 
2671 015542 BGNMSG ER9301 
015542 ER9301:: 
2672 015542 SAVE ;SAVE THE GPRS ON THE STACK. 
ests 015542 004537 005326 JSR RS ,PREGOS sCALL REGISTER SAVE SUBRT. 
2674 015546 PRINTB #€F0S503,R1 sREPORT UNEXPECTED BMP CODES FOUND. 
015546 010146 MOV R1,-(SP) 
015550 012746 005461 MOV #EFOS03, -( SP) 
015554 012746 000002 MOV #2,-(SP) 
015560 010600 MOV SP RO 
015562 104414 TRAP CSPNTB 
015564 062706 000006 ADD #6 ,SP 
2675 015570 012703 002514 MOV OBMPCQB,.R3 sGET THE START ADDRESS OF THE BMP CODE QUEUE. 
2676 015574 012705 012704 MOV EM9302,R5 sGET THE MESSAGE TO BE REPORTED. 
2677 015600 012301 2s: MOV (R3)+,R1 sGET THE NUMBER OF THE TEST THAT WAS EXECUTING. 
2678 015602 012304 MOV (R3)+,R4 sGET BMP CODE THAT WAS REPORTED OFF THE QUEUE. 
2679 015604 004737 015666 JSR PC ,50$ :GO REPORT THE BMP CODE. 
2680 015610 020302 CMP R3,R2 sCHECK IF ALL CODES HAVE BEEN REPORTED. 
ease 015612 103772 BLO 2s sIF IT IS NOT THE LAST BMP CODE THEN LOOP. 
3¢ 
2683 3 Check if overflow has occurred. 
2684 s The conditions for overflow are: the pointer contains the address of the 
2685 + lest cell in the queue, and a bmp code has already been written into that 
ae ; cell. 
68 - 
2688 015614 020227 002710 CMP R2, @BMPCQE -4 sCHECK IF THE POINTER IS AT THE LAST LOCATION. 
2689 015620 001036 BNE 60$ sEXIT IF NOT AT THE LAST LOCATION. . 
2690 015622 005762 000002 TST 2c(R2) sCHECK FOR A BMP CODE IN THE LAST CELL 
2691 015626 001433 BEQ 60$ sEXIT IF NO OVERFLOW HAS OCCURED, CELL EMPTY. 
2692 015630 012301 MOV (R3)+,R1 s;GET THE TEST NUMBER OFF THE QUEUE. 
2693 015632 011304 MOV C(R3),R4 ;GET THE BMP CODE OFF THE QUEUE. 
2694 015634 012705 012734 MOV EM9303,R5 sSELECT THE MESSAGE TO BE REPORTED. 
2695 015640 PRINTX #€F9302 sREPORT OVERFLOW CONDITION. 
015640 012746 007432 MOV @EF 9302, -( SP) 
015644 012746 000001 » MOV #1,-(SP) 
015650 010600 MOV SP ,RO 


015652 104415 CS$PNTX 
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GLOBAL ERROR REPORTING ROUTINE - EROSO1 - 
015654 062706 000004 ADO 04 SP 
2696 015660 004737 015666 JSR PC S08 sREPORT THE LAST BMP CODE PLACED ON THE QUEUE. 
2697 015664 000414 BR 60$ sEXIT. 
2699 015666 50s: PRINTX @€F9301,R5,R1,R46 ;PRINT THE MESSAGE. 
015666 010446 MOV R4,-(SP) 
015670 010146 MOV R1,-(SP) 
015672 010546 MOV RS, -(SP) 
015674 012746 007364 MOV @€F 9301, -( SP) 
015700 012746 000004 MOV 4,-(SP) 
015704 010600 MOV SP RO 
015706 104415 TRAP CSPNTX 
015710 062706 000012 ADO #12, SP 
2700 015714 000207 RTS PC sRETURN. 
2701 015716 60$: PASS sRESTORE THE GPR CONTENTS. 
015716 004736 JSR PC ,@CSP)+ sRETURN TO PREGOS SUBRT. 
2703 015720 ENOMSG 
015720 L10015: 
015720 104423 TRAP C$MSG 
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SEQ 0072 
GLOBAL SUBROUTINES SECTION 

2705 -SBTTL GLOBAL SUBROUTINES SECTION 

2707 3 

2708 F 

2709 ; FVTSKL3.P11 

2710 s 

2711 Fh ah atahatatatabaiatatabsiniabalninisialnininininislainininininisisininisisininiaiaininieidainicidediouc Ce CEN 

2713 

2714 

2715 yee 

2716 ; THE GLOBAL SUBROUTINES SECTION CONTAINS THE SUBROUTINES 

Se + THAT ARE USED IN MORE THAN ONE TEST. 

1 $-- 
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2748 015722 
015722 


2755 015726 
2756 015730 
2757 015732 
2758 015734 


2765 015740 
2766 015742 
2767 015744 
2768 015746 
2769 015752 
2770 015754 
2771 015756 
2772 015760 
2773 015762 
2774 015764 
2775 015766 


L 





CVDHCDO DHV11-M FUNC TST 


GLOBAL SUBROUTINE 


004537 


005326 


002234 


164230 


- ALTFLO - 


-SBTTL GLOBAL SUBROUTINE - ALTFLD - 


see SOOO OS OS EEEE EOE OE OO 066606666606 0606060600 006000000000000000060000000000008 


1é ~ Alter Device Register Fields Routine - 

3¢ This subroutine elters the specified field of the specified device 
ie register for the specified lines. This routine can be used to set 
3@ or cleer bits within selected fields of selected registers. 

:* Use examples: Set RX.BAUD.RATE fields on lines 3 and 6. 

fh Clear TX.OMA bits on ell lines. 

34 

3@ INPUTS: Rl - Address of the registers to elter. 

;@ R2 - Bit fields set to desired states. 

iT R3 - Bit map of lines for which to elter register. 

;¢ R4 - Mask of bits to elter (1 indicates bit). 

36 CSRA - Conteins the eddress of the device CSR. 

Le IESTAT - Saved stetes of the interrupt eneble bits. 

34 

3# OUTPUTS: DEVICE REGISTERS - Specified ister fields eltered. 

;¢ CSR IND.ADR.REG field - Destroyed. 

3% 

+@ CALLING SEQUENCE: JSR PC ,ALTFLO 

38 

3@ COMMENTS: This routine reads the specified registers for ell lines 
3¢ with numbers lower than the highes specified line. 

34 This routine does not read the CSR. 

ra 


s# SUBROUTINES CALLED: None. 


i-- S666 0666666666 666666606666 66 666006666606 66660000606060000060006060000000000606 


ALTFLO:: SAVE sSAVE CONTENTS OF GPRS RO THRU RS. 
RS ,PREGOS sCALL REGISTER SAVE SUBRT. 


i¢ 

; Set up to loop for each line: 

; Prepere the word to be ORed into the register contents. 

: Set up the word to write into the IND.ADR.REG field of the CSR. 
ge 


MOV R4,RO sCALCULATE THE NEW CONTENTS OF THE 
COM RO s REGISTER FIELDS WHICH ARE TO BE 
BIC RO ,R2 s ALTERRED BY THIS ROUTINE 


MOV IESTAT,RS ;SET UP TO WRITE IND.ADR.REG FIELD TO O. 
3¢ 

s Loop once for each line, altering the specified field in the specified 
; register if the line hes been selected for altering. 

s Exit the loop if no more lines to alter, or if we have eltered the max 


8 ellowable number of lines (as specified by NUMLNS). 


ge 

cLc sPREPARE FOR ROTATE, “TST RS” DOES THIS BELOW. 
sGET THE LINE SELECT BIT FOR THIS LINE. 
sSKIP SETUP IF LINE IS NOT SELECTED. 
sSET OUT CSR IND.ADR.REG FIELD TO THIS LINE. 
sGET THE PRESENT CONTENTS OF THE REG TO ALTER. 


BIC R4,RO sCLEAR THE BIT FIELDS WE ARE TO ALTER. 

BIS R2,RO sOR IN THE NEW STATES OF THE FIELDS. 

MOV RO,CR1) sWRITE THE NEW REGISTER CONTENTS TO THE REG. 
4$: INC RS sSET LINE NUMBER TO THE NEXT LINE. 

TST R3 sCHECK FOR UNHANDLED LINES, CLEAR CARRY FLAG. 

BNE 2s sLOOP IF SELECTED LINE(S) IS NOT HANDLED. 


SEQ 0073 
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SEQ 0074 
GLOBAL SUBROUTINE - ALTFLD - 
2776 
2777 015770 608: PASS sRESTORE GPRS. 
015770 004736 JSR PC ,@CSP)+ sRETURN TO PREGOS SUBRT. 
2778 015772 000207 RTS PC sRETURN TO CALLING ROUTNE. 





L 
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SEQ 0075 
GLOBAL SUBROUTINE - CALMSL - 
2780 -SBTTL GLOBAL SUBROUTINE - CALMSL - 
2781 5 ¢¢ S000606600000000000000000000000000060000000000060000000000000000000000000000 
2782 ;¢ - Celibrete Milli Second Loop count subroutine - 
2783 if This subroutine celibretes the timing loop which is used in the MSLOOP 
2784 ;@ routine. This subroutine celculetes e velue for the MSLCNT veriable 
2785 it which is the number of softwere loops which tekes 1 ms to execute in 
2786 :@ the MSLOOP routine. This routine calibrates the count by using the 
2787 3* Line Time Clock (LTC), so if no LTC is eveilaeble the default value for 
2788 ;@ the delay count must be used. 
2789 34 
2790 pa 
2791 3 INPUTS: MSLCNT - Default 1 ms delay loop count value, or 
2792 ;* velue from previous celibration. 
2793 34 MSTICK - Number of MS per LTC clock tick. 
2794 3@ TIMER] - Timer counter changed by LTC interrupt service rtn. 
ores 38 CLKHRZ - Number of LTC clicks per second (50 or 60). 
;* 
2797 3@ OUTPUTS: CARRY - Set if LTC is eveileble, and new celibretion performed. 
2798 ;@ MSLCNT - New 1 ms delay loop count velue if LTC aveileble, or 
ihe, 3@ unchanged if no LTC is availeble. 
;* 
eos 3# CALLING SEQUENCE: JSR PC ,CALMSL 
3¢ 
2803 3* COMMENTS: 
2804 ie 
2805 3# SUBORDINATE ROUTINES CALLED: UNSDIV,O00PS. 
2806 i-- C8O006606666 660666606 0606060000000006000000000000000000000000000000000000008 
2807 
2808 015774 CALMSL:: SAVE sSAVE CONTENTS OF GPRS RO THRU RS. 
015774 004537 005326 JSR RS ,PREGOS sCALL REGISTER SAVE SUBRT. 
aoe 016000 005037 016214 CLR 62$ sCLEAR THE 2ND TIME FLAG. 
3*¢ 
eeet ; Synchronize with the LTC. 
g° 
2813 016004 012705 000001 2s: MOV #1,R5 sSET OUTER LOOP COUNTER TO 1 LOOP. 
2814 sINCREASE THE VALUE LOADED INTO THIS COUNTER IF THE <ee 
2815 sFOLLOWING LOOP FAILS ON FUTURE, FASTER PROCESSORS. <e« 
2816 016010 005000 CLR RO sCLEAR THE WAIT FOR CLOCK INT COUNTER. 
2817 016012 012737 000001 002302 MOV #1, TIMER1 sSET UP COUNT OF 1 TO SYNCH WITH LTC. 
2818 016020 005737 002302 4$: TST TIMER sCHECK FOR COUNTER HAVING GONE TO ZERO. 
2819 016024 001410 BEQ 6$ sJUMP OUT OF LOOP IF LTC HAS INTERRUPTED. 
2820 016026 005200 INC RO sCOUNT THIS ITERATION OF THE INNER LOOP. 
28621 016030 001373 BNE 43 sLOOP IF COUNTER HAS NOT TURNED OVER. 
2822 016032 005305 DEC RS sDECREMENT THE INNER LOOP COUNTER. 
ose 016034 003371 BGT 43 sLOOP IF OUTER LOOP COUNT NOT UP. 
3¢ 
2825 ; If we got no LIC interrupt, indicete that there is no LTC aveileble. 
aoe ; LTC must be flakey, or not reelly en LTC et ell. 
i- 
2828 016036 005037 002300 CLR CLKHRZ sCLEAR LTC FREQUENCY WORD TO INDICATE NO LTC. 
2829 016042 000241 cLC sINDICATE FAILURE FOR RETURN. 
aoe 016044 000461 BR 60$ sBYPASS THE FOLLOWING CALIBRATION PROCEDURES. 
3? 
2832 3; We are now synchronized with the LTC. 
boos s Set up for the calibration loop. 
i- 
2835 016046 012704 002302 6%: MOV @TIMER1,R4 sWILL TEST TIMER1 IN THE LOOP BELOW. 
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2843 016072 
2844 016076 
2845 016190 
2846 016102 
2847 016104 
2848 016106 
2849 016110 
2850 016112 
2851 016114 
2852 016116 


2859 016122 
2860 016124 
2861 016130 
2862 016132 
2863 016134 
2864 016136 
2865 016140 
2866 016142 
2867 016144 
2868 016146 
2869 016150 


2873 016152 
2874 016156 
2875 016160 
2876 016162 
2877 016166 
2878 016170 
2879 016174 
2880 016200 
2881 016204 
2882 016206 


2684 016210 
016210 
2885 016212 


2887 016214 
2888 016216 
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GLOBAL SUBROUTINE 


022364 


002314 


002312 


026530 


022364 
002314 
016214 


- CALMSL - 


Page 57-1 
CLR Ri sCLEAR THE OUTER LOOP COUNTER. 
CLR R2 sINDICATE TO CHECK ALL BITS OF TIMERI. 
CLR R3 sINDICATE TO CHECK FOR TIMER CLEAR. 
MOV #1,(R4) sLOAD TIMER WITH COUNT OF 1. 
83: MOV MSLCNT RS sLOAD MS LOOP COUNT. 
108: MOV CR4) RO sGET THE TIMER1 VALUE. 
MOV RO,648 sSAVE WORD (LIKE IN THE REAL LOOP). 
BIC R2,RO sLEAVE ALL THE BITS. 
CMP RO,R3 sCOMPARE AGAINST ZERO. 


SEC sSET CARRY IN CASE OF SUCCESS. 


BEQ 12$ sEXIT LOOP IF TIMER1 HAS CLEARED. 

DEC RS sCOUNT DOWN THE INSIDE MS LOOP COUNT. 
10$ sLOOP IF MS NOT UP. 

DEC R1 sDECREMENT THE MS TIME COUNT. 

BNE 83 sKEEP LOOPING. 


sWE OVERFLOWED, SOMETHING IS WRONG, ABORT. 


; We have now have loop count information for one clock tick. 
i We have negetive of number of outer loops in Ri, each is MSLCNT inner loops. 
+ We have the portion of the lest outer loop not executed, in RS. 
i Now we calculete the totel number of inner loops executed. 
ge 
12% NEG R1 sGET NUMBER OF OUTER LOOPS. 
MOV MSLCNT ,R2 sGET THE NUMBER OF INNER LOOPS PER OUTER LOOP. 
MOV R2,R sCOPY NUMBER OF LOOPS FOR MULTIPLY. 
sus RS ,R2 sCALC @ OF INNER LOOPS DONE IN LAST OUTER LOOP 
MOV R2,R4 s AND ADD TO ACCUMULATOR LSWORD. 
CLR RS sCLEAR ACCUMULATOR MSWORD. 


14%; DEC R1 sCHECK Ri FOR 0 CONDITION 
s SKIP MULTIPLICATION IF ZERO 
sMULTIPLY NUMBER OF INNER 
AOC RS s LOOPS PER OUTER LOOP BY 


BR 14% sNUMBER OF OUTER LOOPS PERFORMED. 
%¢ 
+ Divide the totel number of inner loops by the number of MS per LTC tick. 


ge 
16%: MOV MSTICK ,R1 s@ OF MS PER LTC TICK IS DIVISOR. 

R3 sLSWORD OF LOOP COUNT IS LSWORD OF DIVIDEND. 
sMSWORD OF LOOP COUNT IS MSWORD OF DIVIDEND. 
sDIVIDE NUMBER OF LOOPS BY MS PER LTC TICK. 

Bcs 18% sBYPASS OOPS IF WE'RE OK. 
sCLOCK ROUTINES ARE NOT LONG ENOUGH, OR BUG. 
188: MOV as sSET NEW VALUE FOR MS LOOP COUNT 


CoM & sSET THE 2ND ITERATION FLAGS IF iST ITERATION. 
BNE 2 sBRANCH IF ONLY ONE ITERATION DONE. 
SEC sSET THE SUCCESS FLAG FOR EXIT. 
60$ PASS sRESTORE GPRS, 
JSR PC ,@(SP)+ sRETURN TO PREGOS SUBRT. 
RTS PC s CARRY - SUCCESS FLAG. SET IF SUCCESS. 
62%: -WORD 0 s2ND CALIBRATION ITERATION FLAGS. 
64%: -WORD 0 sDUMMY WORD FOR STORAGE OF THE READ WORD. 


SEQ 0076 
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GLOBAL SUBROUTINE 


2918 


2926 016242 
2927 016244 
2928 016246 
2929 016250 
2930 016254 
2931 016256 
2932 016262 
2933 016266 
2934 016270 
2935 016272 
2936 016274 
2937 016276 
2938 016300 
2939 016302 
2940 016304 


005326 
003404 


003544 


005236 
003444 


- CHKEXT - 


-SBTTL GLOBAL SUBROUTINE 
$ 9% 066666666666 66 6666666660666 606684 606666668 6860606600060 000600600 6060606000080 0E8 
- Check For Extre Cherecter Routine - 

This subroutine checks for the condition which indicetes thet en extre 
cherecter hes been received ig B the reception of e dete pettern. 


If this routine determines thet 


- CHKEXT - 


is likely thet en extre cherecter 


hes been received it indicetes this in the stetus informetion returned 


to the celling routine. 


3¢@ INPUTS: 


s@ OUTPUTS: 


CHKEXT: : 


3° 
3; It io likely thet we 


2 
s@ CALLING SEQUENCE: 
2 

s@ COMMENTS: 


SAVE 


4 - RX line number sultiplied by 2 (offset into word tebles). 


- Bese eddress of res 
s. Mesk of “inective’ 


que conteini RX chers. 
non-dete) bits RX end Tx chers. 


CHCNTB - Bese of number of chers to TX on each line teble. 
RXCNTB - Bese of the RX cherecter counters teble. 
RXPTRB - Bese of the RX cherecter pointers teble. 


TXRXLB - Bese of TX/RX line 


essocietion teble. 


CARRY - Set if extre cherecter condition is verified. 


JSR 


PC .CHKEXT 


The following symbole ere used in line comments: 


- Cherecter et bottom of resync que (first received). 


CHR1, 


CHR2 - 2 cherecters received efter CHRO. 


EXPO - Cherecter expected to be received next. 
EXP1, EXP2 - Cherecter expected to be received after EXPO, etc. 


s@ SUBORDINATE ROUTINES CALLED: None. 
$-- SOSEREOSEESESEEEEEEEEEESEEEEESEEREEESESEEEEDEOEEDEREEDESEEEEDEEDEEELEDEES 


JSR 
RXPTRBCR3) .R2 
CR4)> 
(R4)+¢,RO 
52% 


S2 
RXCNTBCR3) RO 
RO 


TXRXLBCR3) RL 
RO, CHCNTBCR1 ) 


50% 
CR4),RO 
50% 


3; Indicete “success” > exit. 





sSAVE CONTENTS OF GPRS RO THRU RS. 

RS , PREGOS sCALL REGISTER SAVE SUBRT. 

iGET THE RX DATA POINTER. 

sINCREMENT R4 BY 2 TO POINT TO CHR1. 

sGET CHR1 FROM THE QUE, DATA.VALID INTO N FLAG. 
sEXIT WITH “FAILURE” IF CHR1 NOT VALID. 

sREMOVE INACTIVE BITS FROM CHR1 VALUE. 

sGET EXPO FROM THE DATA PATTERN. 

sREMOVE INACTIVE BITS FROM EXPO VALUE. 

sCOMPARE CHR1 AND EXPO. 

sEXIT WITH “FAILURE” IF CHR1 <> EXPO. 

sCOMPARE THE PRESENT RX CHARACTER COUNT PLUS 1 
s WITH THE EXPECTED NUMBER OF CHARS TO RX ON 

s LINE (NUMBER TRANSMITTED AND LOOPED BACK) TO 
s DETERMINE IF CHR1 IS LAST EXPECTED CHAR. 
sEXIT WITH “SUCCESS” IF CHR1 IS LAST CHAR. 

sGET CHR2 FROM THE QUE, DATA.VALID INTO N FLAG. 
sEXIT WITH “SUCCESS” IF CHR1 WAS LAST IN QUE. 
sREMOVE INACTIVE BITS FROM CHR2 VALUE. 

sGET THE EXP1 VALUE. 

sREMOVE INACTIVE BITS FROM EXP1 VALUE. 

sCOMPARE CHR2 AND EXP1. 

sEXIT WITH “FAILURE” IF CHR2 <> EXP1. 


received en extra cheracter within the dete pettern. 
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SEQ 0077 
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SEQ 0078 
GLOBAL SUBROUTINE - CHKEXT - 

2946 016306 000261 50%: SEC sSET THE SUCCESS FLAG. 

2947 016310 000401 6R 608 sEXIT THE ROUTINE. 

2948 

2949 se 

2950 s We didn’t receive e single extre cherecter et this point in the dete pettern. 

2951 ts Indicate “feilure” and exit. 

2952 %- 

2953 016312 000241 S28: CLC sCLEAR THE SUCCESS FLAG. 

2955 016314 608: PASS sRESTORE GPRS. 

016314 004736 JSR PC OC SP)+ sRETURN TO PREGOS SUBRT. 


2956 016316 000207 RTS PC sCARRY - SET IF success (EXTRA CHAR RXED). 








CVDHCDO OMV11-M FUNC TST PART 3 MACRO VOS.00 Thursday 25-Apr-85 16:37 Page 59 
- CHKLOS - 


GLOBAL SUBROUTINE 


2988 016320 

016320 
2989 016324 
2990 016330 
2991 016332 
2992 016336 
2993 016342 
2994 016344 
2995 016346 
2996 016350 
2997 016352 
2998 016356 
2999 016260 
3000 016362 
3001 016364 


3003 016366 
3004 016370 
3005 016372 
3006 016374 
3007 016376 
3008 016400 
3009 016402 
3010 016404 


3012 015406 





005326 
003544 


005236 
003444 


003404 





-SBTTL GLOBAL SUBROUTINE - CHKLOS - 


see SEOCOS SEES SEES ESEEESESEEESEEESEEEEEEOEEEEEEEEDEEEEEEEEEEEEEEEEEEEEEEEEEES 


- Check For Lost Cherecter Routine - 


3¢ This subroutine checks for the condition which indicates thet a cher 

3¢ has been “lost” from the looped beck date pattern during @ transmission 
78 and reception test. If this routine determines thet it is likely thet 

3¢ @ cherecter hes been lost, it indicates this in the status information 

3¢ returned to the calling routine. 

34 

3@ INPUTS: R3 - RX line number multiplied by 2 (offset into word tables). 


s# OUTPUTS: 


R4 - Base address of resync que conteini RX chars. 

RS - Mask of “inactive” (non-dete) bits of RX and TX chers with 
ell set bits in e single, left qucelvtes group. 

CHCNTB - Bese of number of chers to TX on each line table. 

RXCNTB - Base of the RX cheraecter counters teble. 

RXPTRB - Bese of the RX character pointers table. 

TXRXLB - Base of TX/RX line number association table. 


CARRY - Set if lost cherecter condition is verified. 


s@ CALLING SEQUENCE: JSR PC ,CHKLOS 


* 
3@ COMMENTS: 


The following symbols ere used in line comments: 


HRO - Cherecter at bottom of resync que (first received). 
CHR1, CHR2 - 2 cherecters received efter CHRO. 

EXPO - Cheracter expected to be received next. 

EXP1, EXP2 - Cherecter expected to be received after EXPO, etc. 


34 
3# SUBORDINATE ROUTINES CALLED: None. 
t-- SOOO 666666666606 66006066606 66 6660066000060600644600060006000660006000000000 6000408 


CHKLOS:: SAVE 


sSAVE CONTENTS OF GPRS RO THRU RS. 

JSR RS ,PREGOS sCALL REGISTER SAVE SUBRT. 
RXCNTB(R3),R1  ;COMPARE THE PRESENT RX CHARACTER COUMT PLUS 1 
Ri ; WITH THE EXPECTED NUMBER OF CHARS TO RX ON 
TXRXLB(R3),RO ; LINE (NUMBER TXED AND LOOPED BACK) TO 
CHCNTB(RO),R2 ; OETERMINE IF THE POSSIBLE LOST CHAR 


R1,R2 s_ WOULD BE THE LAST EXPECTED RX CHAR. 
Ses sEXIT WITH “FAILURE” IF LOST CHR WOULD BE LAST. 
R1 sDETERMINE (AS ABOVE) IF CHRO WOULD BE THE LAST 
R2,R1 ;_ RX CHAR AND SAVE RESULT FOR LATER. 
RXPTRB(R3),R2 ;GET THE RX DATA POINTER. 
R2 sCALCULATE POINTER TO EXP1 LOCATION. 
(R2)+,RO sGET EXP1 VALUE FROM DATA PATTERN. 
(R4)+,RO sCOMPARE CHRO AND EXP1 VALUES. 
RS,RO sREMOVE INACTIVE BITS FROM RESULT. (NO ACTIVE 
;_ BITS ALLOWED TO LEFT OF ANY INACTIVE BITS.) 
S2$ sEXIT WITH “FAILURE” IF CHRO <> EXP1. 
R1 sCHECK CHRO TEST RESULT SAVED ABOVE. 
50$ sEXIT WITH “SUCCESS” IF CHRO IS LAST CHAR. 
(R4),R1 sGET CHR1 FROM THE QUE, DATA.VALID INTO N FLAG. 
50$ sEXIT WITH “SUCCESS” IF CHRO WAS LAST QUE CHAR. 
(R2),RO sGET THE EXP2 VALUE FROM THE DATA PATTERN. 
RO,R1 sCOMPARE THE EXP2 AND THE CHR1 VALUES. 
RS,R1 sREMOVE INACTIVE BITS FROM RESULT OF COMPARE. 
s_ (NO ACTIVE BITS LEFT OF INACTIVE BITS.) 
Ses sEXIT WITH “FAILURE” IF CHR1 <> EXP2. 
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GLOBAL SUBROUTINE - CHKLOS - 






3014 z¢ 
3015 s It is likely that we lost e character from the date pattern. 
oe s Indicate “success” and exit. 

1 he 
3018 016410 000261 50$: SEC sSET THE SUCCESS FLAG. 
3019 016412 000401 BR 60$ sEXIT THE ROUTINE. 
3020 
3021 3° 
3022 3; We didn't lose a single extre character at this point in the date pattern. 
or ; Indicate “failure” and exit. 
024 3° 
cons 016414 000241 52s: cLc sCLEAR THE SUCCESS FLAG. 

6 
3027 016416 60$: PASS sRESTORE GPRS. 

016416 004736 JSR PC ,a(SP)>+ sRETURN TO PREGOS SUBRT. 

3028 016420 000207 RTS PC sCARRY - SET IF SUCCESS (LOST CHAR LIKELY). 





GLOBAL SUBROUTINE 


3053 016422 
016422 
3054 016426 


3056 016432 
3057 016436 
3058 016442 
3059 016444 
3060 016446 


3062 016450 
3064 016454 


016454 
3065 016456 


004537 
052701 


012703 
062701 
103402 
006203 
000773 


010337 


004736 
000207 








005326 
177740 


177400 
000010 


002226 
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.SBTTL GLOBAL SUBROUTINE 


- CHRMSK - 


ae0¢ PERCE EEEEESAEEEEREEED ERED OSEEEE OOOO EOEEOEODO4 4464 46060606660400006 


34 - Form ea Bit Mask of Unused TX/RX Bits Routine - 

;¢ This subroutine constructs ea bit mask of character bits which ere not 
:@ used during transmission and reception. This mask can be used 

3¢ to remove the flags, line number, DATA.VALID bits, and unused data bits 
34 from e character word which has been read from the DUT FIFO. 

34% 

3@ INPUTS: Ri - DUT LPR contents used to determine character length. 

ja 

3# OUTPUTS: IBM - Bit mask of unused TX/RX bits Cincluding upper byte): 
34 Examples: 177400 returned for 8 bits/char. 

34 177700 returned for 6 bits/char. 

34 

3@ CALLING SEQUENCE: JSR PC ,CHRMSK 

34 

3@ COMMENTS: If this mask is to be used to just remove the inactive bits 
34 within the date byte of a word read from the DUT FIFO, the 

34 upper byte of the mask must be cleared. 

34 


3# SUBORDINATE ROUTINES CALLED: None. 
b-- O08 66600606606606600646660660066000066006006006006006000000000006000040008 


CHRMSK:: SAVE 
JSR 
BIS $177740,R1 
MOV 4177400,R3 


2s: ADD #10,R1 
BCS 4s 
ASR R3 
BR 2s 
4$: MOV R3, 18M 
60$ PASS 
JSR 
RTS PC 


sSAVE CONTENTS OF GPRS RO THRU RS. 

RS ,PREGOS sCALL REGISTER SAVE SUBRT. 
sPREPARE TO COUNT BITS SHIFTED INTO MASK BY 

+ USING THE LPR BITS/CHAR FIELD CONTENTS. 
sCLEAR THE UNUSED BIT MAP LOWER BYTE. 
sDETERMINE IF ANOTHER BIT WOULD BE TOO MANY. 
sEXIT THE SHIFT LOOP IF IT WOULD BE TOO MANY. 
sSHIFT A BIT INTO THE UNUSED BIT MASK LOW BYTE. 
sLOOP TO CHECK FOR DONE. 


sLOAD THE INACTIVE BITS MASK STORAGE IN MEMORY. 


sRESTORE GPRS. 
PC,@(SP)-+ sRETURN TO PREGOS SUBRT. 












3067 
3068 
3069 
3070 
3071 
3072 
3073 


3101 

3102 016460 
016460 

3103 

3104 

3105 

3106 016464 

3107 016472 

3108 

3109 

3110 

3111 

3112 

3113 

3114 016474 

3115 016500 

3116 016502 

3117 016504 

3118 016510 

3119 

3120 

3121 

3122 016512 





GLOBAL SUBROUTINE 


004537 


036337 
001407 


012701 
011402 
040502 
052704 
000452 


016302 


005326 


002366 


011414 


100000 


003404 
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- CKCHR - 


002506 


-SBTTL GLOBAL SUBROUTINE 


- CKCHR - 
zoe SESROSEEEEESEAEEESESEEEEEEEEEEEEEEEDEDES OE OEEEOEEDEEOEEEDDEEEOEEDEEEEEEEEES 


34 - Check Character For Errors Routine - 

3% This subroutine checks the character at the bottom of the resync queue 
3* to determine if it is correct. Pointers and counters which ere related 
34 to the reception of the character are updated. If the cherecter is 

34 incorrect, an analysis of the error is done and parameters are set up 
34 for the reporting of the correct error. 

3* 

3* INPUTS: R3 - Line offset for access of word tables of line variables. 
34 R4 - Base address of the resync queue for this line. 

: RS - Mask of the inactives bits in a TX or RX char byte. 

i* BITTBL - Table of words with bits set for use in forming maps. 
34 DPRSQ - Date Pattern Resync Que with valid char at bottom. 

:4 EXCNTB - Base of the extra character couters table. 

34 RXDONF - Receive done flags. 

34 RXPTRB - Base of the RX cheracter pointers table. 

34 Error Message Labels - EM9007,EM9008,£M9027, EM9028 

37% 

3# OUTPUTS: R1 - Contains the address of the error message to be reported. 
34 R2 - Contains the actual received data. 

34 R4 - Contains the expected date. 


3% CARRY - “Success” flag (set if no error is found). 

3* Following variables updated for line on which char was received: 
34 EXCNT - Count of the number of extra chars received on line. 
3% RXCNT - Count of the number of characters received on line. 
74 RXPTR - Updated to point to the next expected char on line. 
34 ERRBLK - Contents destroyed. 

34 

3# CALLING SEQUENCE: JSR PC ,.CKCHR 

;* 

3* COMMENTS: 

3* 


3* SUBORDINATE ROUTINES CALLED: CHKEXT,CHKLOS,UPDCHR. 
i ~~ SERREREEEEEE DEED OD 446604460446 44 4401S hE EERE EERE EES 
CKCHR:: SAVE sSAVE CONTENTS OF GPRS RO THRU RS. 

JSR RS ,PREGOS sCALL REGISTER SAVE SUBRT. 


i? 
; Check for the RX of a char after RX should be complete on this line. 


BIT BITTBL(R3),RXDONF sTEST THE RX DONE FLAG FOR THIS LINE. 
BEQ 2s sSKIP ERROR REPORT IF RX NOT COMPLETE ON LINE. 

3° 

; We have received an extra character on this line. 

; Set up for error report and exit to report the error. 

; Count the extra character. 

; Exit to report “UNEXPECTED CHAR RECEIVED AFTER RX COMPLETE ON LINE nn” 

as 


MOV #€M9007,R1 sSELECT “EXTRA CHAR ON LINE” ERROR MESSAGE. 
MOV (R4),R2 sGET THE ACTUAL DATA FOR ERROR REPORT. 

BIC RS ,R2 sREMOVE THE INACTIVE BITS. 

BIS #BIT15,R4 sINDICATE “NONE” EXPECTED DATA FOR ERROR RPT. 
BR 12$ sGO COUNT EXTRA CHAR AND EXIT WITH “FAILURE”. 


3¢ 
; Get the pointer to the next expected receive data character. 


2$: MOV —«RXPTRB(R3),R2 
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3123 i¢ 
sass : Compere the actual data with the expected data. 
1 s- 
3126 016516 011400 MOV (R4),RO sGET THE ACTUAL DATA. 
3127 016520 040500 BIC R5,RO sREMOVE THE INACTIVE BITS. 
3128 016522 111201 MOVB (R2),R1 sGET THE EXPECTED DATA. 
3129 016524 040501 BIC RS,R1 sREMOVE THE INACTIVE BITS. 
3130 016526 120001 CMPB §RO.R1 sCOMPARE ACTUAL AND EXPECTED. 
3131 016530 001003 BNE 4$ sCHECK FURTHER IF DATA MISCOMPARE. 
3132 016532 004737 026664 JSR PC ,UPDCHR sUPDATE PTRS AND COUNTERS FOR THE CHAR. 
es 016536 000446 BR 50$ sEXIT WITH “SUCCESS”, NO ERROR FOUND. 
3¢ 
3135 ; Actual and expected date miscompare. 
ats ; Determine if it’s likely we received an extra char within the date pattern. 
1 ke 
3138 016540 004737 016220 4$: JSR PC ,CHKEXT sCHECK FOR EXTRA CHAR RX‘ED IN PATTERN. 
ed 016544 103010 BCC 6$ :GO CHECK FOR LOST CHAR IF NO EXTRA CHAR. 
3¢ 
3141 ; It is likely that we received an extra character within the data pattern. 
3142 ; Count the char as an extra char, don’t count as a standard char. 
oe ; Report “EXTRA CHAR RECEIVED WITHIN DATA PATTERN ON LINE nn” 
144 i 
3145 016546 012701 012227 MOV 9E€M9027,R1 sSELECT “EXTRA CHAR ON LINE” ERROR MSG. 
3146 016552 111200 MOVB (R2),RO sGET THE EXPECTED RECEIVE DATA. 
3147 016554 040500 BIC RS,RO sREMOVE THE INACTIVE BITS FROM EXPECTED DATA. 
3148 016556 011402 MOV C(R4),R2 sGET THE ACTUAL RECEIVE DATA. 
3149 016560 040502 BIC RS ,R2 sREMOVE THE INACTIVE BITS FROM ACTUAL DATA. 
3150 016562 010004 MOV RO,R4 sPASS EXPECTED DATA TO ERROR REPORT ROUTINE. 
eras 016564 000424 BR 12$ sGO COUNT EXTRA CHAR AND EXIT WITH “FAILURE”. 
1 Hd 
3153 ; Actual and expected data miscompare. 
3154 ; Not likely that we received an extra character within the data pattern. 
ae ; Determine if it's likely we lost a character from the data pattern. 
i 3° 
3157 016566 004737 016320 6$: JSR PC,CHKLOS sCHECK FOR A LOST CHAR CONDITION. 
ine 016572 103012 BCC 8$ :GO REPORT BAD RX DATA IF NOT LOST CHAR. 
1 i¢ 
3160 ; It is likely that we lost a character from the data pattern. 
3161 ; Count the char in the RX char count as if it had been received. 
3162 ; Also, count CHRO as a valid char, because we have verified it above. 
ety ; Report “SINGLE CHAR MISSING FROM RECEIVED DATA ON LINE nn” 
1 i> 
3165 016574 012701 012307 MOV 9EM9028,R1 sSELECT “LOST CHAR ON LINE” ERROR MSG. ttttt 
3166 016600 111200 MOVB (R2),RO sGET THE EXPECTED RECEIVE DATA. 
3167 016602 040500 BIC R5,RO sREMOVE THE INACTIVE BITS FROM EXPECTED DATA. 
3168 016604 011402 MOV (R4),R2 sGET THE ACTUAL RECEIVE DATA. 
3169 016606 040502 BIC RS ,R2 sREMOVE THE INACTIVE BITS FROM ACTUAL DATA. 
3170 016610 010004 MOV RO,R4 sPASS EXPECTED DATA TO ERROR REPORT ROUTINE. 
3171 016612 004737 026664 JSR PC ,UPDCHR sUPDATE PTRS AND COUNTERS FOR THE CHAR. 
nee 016616 000404 BR 10$ 3GO EXIT WITH “FAILURE”. 
1 3¢ 
3174 ; Did not lose or gain a single character from/to the data pattern. 
no ; Report “RECEIVED CHAR MISCOMPARE AGAINST TX DATA ON LINE nn“ 
1 ee 
3177 016620 010002 8$: MOV RO,R2 sPASS ACTUAL DATUM TO ERROR REPORT ROUTINE. 
3178 016622 010104 MOV R1,R4 sPASS EXPECTED DATUM TO ERROR REPORT ROUTINE. 
3179 016624 012701 011477 MOV %EM9008,R1 sSELECT THE “DATA MISCOMPARE” MESSAGE. 
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SEQ 0084 


3180 3¢ 
aye 3; Update the cheracter counter and RX data pattern pointer for this line. 
1 g- 
3183 016630 004737 026664 10$: JSR PC ,UPDCHR sUPDATE RX PTR AND COUNTER FOR THIS LINE. 
sre 016634 000405 BR 14$ 3GO EXIT WITH “FAILURE”. 
3° 
tre + Count the character es an extra cheracter. 
g= 
3188 016636 005263 003244 12$: INC EXCNTBC(R3) s INCREMENT THE EXTRA CHAR COUNT FOR THIS LINE. 
3189 016642 001002 BNE 14$ sEXIT WITH FAILURE IF NO OVERFLOW. 
ioe 016644 005363 003244 DEC EXCNTBC(R3) sDECREMENT BACK TO -1 (MAX VALUE) IF OVERFLOW. 
3* 
ao ; Indicate “failure” and exit. 
ge 
3194 016650 000241 14$: cLc sCLEAR THE “SUCCESS” FLAG. 
aoe 016652 000401 BR 60$ sEXIT THE ROUTINE. 
3197 3¢ 
3198 ; No error wes found. 
oes ; Set “success” flag and exit. 
g@ 
yee 016654 000261 50$: SEC sSET THE “SUCCESS” FLAG. 
3203 016656 60$: PASS R1,R2,R4 sRESTORE GPRS, EXCEPT 
016656 010166 000004 MOV R1,RiISLOT(SP) 3;PUT R1 IN STACK SLOT. 
016662 010266 000006 MOV R2,R2SLOTC( SP) sPUT R2 IN STACK SLOT. 
016666 010466 000012 MOV R4 ,R4SLOT( SP) ;PUT R4 IN STACK SLOT. 
016672 004736 JSR PC ,@(SP)+ ;RETURN TO PREGOS SUBRT. 
3204 sR1 - CONTAINS THE ADDRESS OF THE ERROR REPORT. 
3205 sR2 - CONTAINS THE ACTUAL DATA RECEIVED. 
3206 3R4 - CONTAINS THE EXPECTED DATA. 
3207 016674 000207 * RTS PC 


t 


co 
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GLOBAL SUBROUTINE 


3238 016676 

016676 
3239 016702 
3240 016706 


3245 016712 
3246 016716 
3247 016724 
3248 016726 
3249 016732 
3250 016736 
3251 016742 
3252 016746 


3254 016750 
3255 016754 
3256 016756 
3257 016762 
3258 016766 


3263 016774 
016774 


004537 
013704 
004737 


013701 
023737 
001402 
062701 
052701 
013702 
004737 
103033 


005337 
001011 
010437 
012701 
012737 


104460 





- CKFRPR - 
-SBTTL GLOBAL SUBROUTINE - CKFRPR - 


14 SOCCER ESEEEEEEEE OD O06666 666660060600 00 000006 6000060606000600000000006000004 


005326 
005320 
026070 


002242 
002504 002174 


000062 
170000 
002204 
027160 


002500 
005320 


012107 
014100 005324 


3* - Check Framing and Perity Error vn tang - 

74 This subroutine is used in the Frami error and Parity error tests. 
34 It reads the cherecters from the DUT Receiver Character FIFO, 

i* and checks for the correct combination of Parity and Framing 

34 error bits in the MSB. If characters stop appearing in the FIFO with 
te DATA.VALID set or if more then the allowable number of cheracters 

34 has been read from the DUT this routine exits wit! an RX complete 

;* indication. Eech read char is analysed and any necessary errors are 
34 reported. 

34 

3 INPUTS: RS - Test flag, bitiS set = Framing err, clear = Parity err. 
;* ERRNBR - Set to error number of first error in this routine. 
34 OSTEND - Address of the end of the output stor fifo buffer. 
34 OSTPTR - Pointer to the next byte to read from OSTORE. 

;* 

3# OUTPUTS: RXCNTB - Receive charater count updated for each line. 

34 RXPNTB - Receive character pionter is updated for each line. 
3% 


s# CALLING SEQUENCE: JSR PC ,CKFRPR 


a 
3@ COMMENTS: This routine reports errors with numbers Initial ERRNBR 


thru Initial ERRNBR + 4. 
ERRNBR is restored before this routine returns. 


3* 
3# SUBORDINATE ROUTINES CALLED: PRFRME,PRPARE,WAIBIS. 
i-- SESEEEEEEEEEEEEDED O42 44664066 64000466000466 660600660606 060000646 0004000000444484 


CKFRPR:: SAVE sSAVE CONTENTS OF GPRS RO THRU RS. 
JSR RS ,PREGOS sCALL REGISTER SAVE SUBRT. 
MOV ERRNBR ,R4 sPRESERVE THE INITIAL ERROR NUMBER. 
JSR PC, TXIE1 sENABLE TX INTERRUPTS. 


3¢ 


; Wait for a character to appear in the FIFO. 
; If no character appears within time-out period: exit routine, we're done. 





MOV RXTOUT ,R1 sGET MINIMUM TIME OUT VALUE. 

CMP TXDONF ,ACTLNS ;CHECK FOR TRANSMISSION DONE ON ACTIVE LINES. 
BEQ at sSKIP ADDING 50 MS DELAY IF TX DONE ALL LINES. 
ADD #50. ,R1 sADD SO MILLI SEC TO DELAY IF NOT LAST CHAR. 

BIS #170000,R1 sINDICATE TO TEST DATA.VALID BIT. 

MOV RBUFA,R2 sINDICATE TO CHECK DUT RECEIVE BUFFER (FIFO). 
JSR PC ,WAIBIS sWAIT FOR RECEIVED CHAR OR TIME-OUT. 

BCC 60$ sEXIT ROUTINE IF TIME-OUT, WE'RE DONE. 

DEC CHRTOT sDECREMENT THE TOTAL CHAR COUNTER. 

BNE 6$ sSKIP ERROR IF NOT TOO MANY CHARS RECEIVED. 
MOV R4,ERRNBR sSET ERROR NUMBER TO INITIAL ERRNBR. 

MOV 9€M9025,R1 sSELECT THE ERROR MESSAGE TO BE REPORTED. 


MOV @EROSO3,ERRBLK ;SELECT THE ERROR REPORT ROUTINE. 


Report error at initial ERRNBR. 
“MORE THAN TWICE THE EXPECTED NUMBER OF CHARACTERS RECEIVED” 


ERROR : >>>>> ERROR <<<c<, 
TRAP CSERROR 





SEQ 0085 
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GLOBAL SUBROUTINE 


3264 016776 000417 
3265 


3266 
3267 
3268 


3269 

3270 017000 
3271 017002 
3272 017004 
3273 017010 


3277 017012 
3278 017014 


3280 017016 
3281 017022 
3282 017024 


3284 017030 
3285 017034 


3287 017036 
3288 017042 

017042 
3289 017044 


— 





177760 


022612 
022710 
026664 


005320 





BR 60$ sEXIT THIS ROUTINE WE HAVE GIVEN UP. 


3¢ 

; Extrect the line number of the new character. 

; Calculate offset for accessing tables of line veriables. 
g= 


63: MOV R2,R3 sCOPY THE READ CHARACTER. 
SWAB R3 sGET THE LINE NUMBER IN THE LSB. 
BIC #177760,R3 s;CLEAR THE UNWANTED BITS. 
ASL R3 sSHIFT LEFT TO FORM OFFSET INTO TABLES. 
3¢ 
; Process the read characters as dictated by the test flag. 
ge 
MOV RS,R5 sDETERMIN WHICH TEST CALLED THIS ROUTINE. 
BPL 8$ sBRANCH TO PROCESS CHARACTER IN PARITY TEST. 
JSR PC ,PRFRME sPROCESS FRAMING ERRORS RECEIVED. 
BR 10$ sSKIP PROCESSING CHARACTERS FOR PARITY TEST. 
8$: JSR PC ,PRPARE sPROCESS PARITY ERRORS RECEIVED. 
10$: JSR PC ,UPDCHR sUPDATE POINTERS AND COUNTERS FOR THIS LINE. 
BR 2s sLOOP TO READ NEXT CHAR FROM FIFO. 
60$: MOV R4,ERRNBR sRESTORE THE ERROR NUMBER TO ITS INITIAL VALUE. 
PASS sRESTORE GPRS. 
one - JSR PC,@C(SP)-+ sRETURN TO PREGOS SUBRT. 
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SEQ 0087 
GLOBAL SUBROUTINE - CKINAC - 
3291 -SBTTL GLOBAL SUBROUTINE - CKINAC - 
3292 b+ SOROOOO0 606606 060666 6060000000060000000000000000000000000000000000000000008 
3293 34 - Check for New Character on Inactive Line Routine - 
3294 ;* This subroutine checks ea cheracter to determine if the cheracter 
3295 ;* was received on an active line. If the cheracter was received on 
3296 3% an inactive line this routine records the fact that the cheracter 
3297 3% was received on ean inactive line, prepares an error message for 
sao i* the calling routine, and returns e “failure” status. 
;* 
3300 3* INPUTS: R2 - The RX character including error flags and line number. 
3301 ;* ACTLNS - Bit map of active DUT lines. 
3302 i* BITTBL - Table of words with bits set for forming bit maps. 
3303 :* EM9006 - Lebel at “RX ON INACTIVE LINE” error messge. 
3304 3% EXCNTB - Base of the extre cheracter couters table. 
coos 34 TXRXLB - Base of TX/RX line number association table. 
;* 
3307 3* OUTPUTS: CARRY - “Success” flag (set if no error found). 
3308 3% Rl - If error found, address of error message. 
3309 36 R3 - Line number offset of passed in character. 
3310 34 R4 - If error found, expected data indication for error rpt. 
tay 3% EXCNT - Extra cheracter count for line (Updated if error). 
3* 
aap 3# CALLING SEQUENCE: JSR PC ,CKINAC 
a 
3315 3* COMMENTS: 
3316 ;* 
3317 ;# SUBORDINATE ROUTINES CALLED: NONE. 
3318 j-- SORREEOEOE EEO O6 OS 046040004 464000000406 06 080000000800 00 OOOO Oh eked eeees 
3319 
3320 017046 CKINAC:: SAVE sSAVE CONTENTS OF GPRS RO THRU RS. 
san 017046 004537 005326 JSR RS ,PREGOS ;CALL REGISTER SAVE SUBRT. 
i¢ 
3322 ; Extract the line number from the passed in character and use the line 
ros + number to form an offset for accessing tables of line variables. 
g- 
3325 017052 010203 MOV R2,R3 sEXTRACT THE LINE NUMBER 
3326 017054 000303 SWAB R3 + FROM THE CHARACTER WE 
3327 017056 042703 177760 BIC 4177760,R3 ; ARE COMPARING. 
roe 017062 006303 ASL R3 sFORM OFFSET INTO WORD TABLE FROM LINE NUMBER. 
i+ 
foe ; If the character in question is not ea valid character, exit with “success”. 
-— 
3332 017064 005702 TST R2 ;CHECK DATA.VALID BIT. 
44 017066 100021 BPL 50$ sEXIT WITH SUCCESS IF CHAR IS NOT VALID. 
i¢ 
3335 ; If the TX line which is associated with this RX line is an active line, 
2234 ; exit the routine with “success”. 
_ 
3338 017070 016301 005236 MOV TXRXLBCR3),R1 sGET THE TX LINE @ OFFSET FOR THIS RX LINE. 
3339 017074 036137 002366 002174 BIT BITTBLC(R1),ACTLNS ;DETERMINE IF TX LINE IS AN ACTIVE LINE. 
coos 017102 001013 BNE 50$ sEXIT ROUTINE WITH SUCCESS IF LINE IS ACTIVE. 
3? 
3342 ; The character in question was received on an inactive line. 
3343 ; Count this charecter as an extra cher. 
3344 ; Set up error information. 
ree ; Exit routine with “failure” indication. 
46 s- 








—_— 
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GLOBAL SUBROUTINE 


— 


3347 017104 
3348 017110 
3349 017112 
3350 017116 
3351 017122 
3352 017126 
3353 017130 


3359 017132 


3361 017134 
017134 
017140 
017144 
017150 

3362 017152 





003244 


003244 
011341 
100000 


000004 
000010 
000012 








INC EXCNTBC(R3) sINCREMENT THE EXTRA CHAR COUNT FOR THIS LINE. 

BNE 2$ sSKIP SETTING TO MAX VALUE IF NO OVERFLOW. 

DEC EXCNTBC(R3) sDECREMENT BACK TO -1 (MAX VALUE) IF OVERFLOW. 
2s: MOV €M9006 ,R1 sSET UP RX ON INACTIVE LINE MESSAGE. 

MOV #BIT1S,R4 sSET UP_ “NONE” EXPECTED DATA INDICATION. 

cLc sCLEAR THE “SUCCESS” FLAG. 

BR 60$ sGO REPORT RX CHAR ON INACTIVE LINE. 


3¢ 
i We have not found ea “char on inactive line” error situation. 
; Set the “success” flag and exit the routine. 


g= 
50$: SEC sSET THE “SUCCESS” FLAG. 


60$: PASS R1,R3,R4 sRESTORE GPRS, EXCEPT OUTPUT GPRS. 
MOV R1,R1ISLOT( SP) sPUT R1 IN STACK SLOT. 
MOV R3,R3SLOTC( SP) sPUT R3 IN STACK SLOT. 
MOV R4 ,R4SLOTC( SP) sPUT R4& IN STACK SLOT. 
JSR PC,@(SP)+ sRETURN TO PREGOS SUBRT. 
RTS PC sCARRY - SUCCESS FLAG (SET IF NO ERROR). 
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SEQ 0089 
GLOBAL SUBROUTINE - CKTRAP - 
3364 -SBTTL GLOBAL SUBROUTINE - CKTRAP - 
3365 j PROEOEOO46 0060060606 0660 6000060606 0606000000 000000080000000000000000000000008 
3366 3¢ Check Trap Routine - 
3367 34 This subroutine is used to check for ea bus time-out trap (004 trap) 
3368 ie which is caused by en access to a non-existent memory or I/0 location. 
a4 ;* If the trap does not occur, this routine returns a success indication. 
34# 
3371 ;@ INPUTS: RO - Source address for move. 
3372 34 Ri - Destination address for move. 
3373 3* (RO) - Source for the move. 
3374 3* 
3375 3@ OUTPUTS: (R1) - Written to the contents of (RO). 
3376 34 Cerry flag - Set on return if no 004 trap detected. 
fre 34 TP4FLG - Nonzero if trap occurred, cleared otherwise. 
3% 
td ;* CALLING SEQUENCE: JSR PC ,CKTRAP 
3* 
3381 3@ COMMENTS: If this subroutine causes a trap, either the address which 
tae 34 is labeled ADRPTR will be the trap PC address on the stack. 
34% 
3384 3# SUBORDINATE ROUTINES CALLED: None. 
3385 j PEERS ESEEEEEEED ES OE 6666600606 06666000060606000000006000000000000006000000000008 
3386 
3387 017154 CKTRAP:: SAVE sSAVE CONTENTS OF GPRS RO THRU RS. 
017154 004537 005326 JSR RS ,PREGOS ;CALL REGISTER SAVE SUBRT. 
3388 017160 005037 002256 CLR TP4FLG sCLEAR THE 004 TRAP FLAGS. 
3389 017164 011011 MOV CRO), CR1) sPERFORM THE MOVE IN QUESTION. 
3390 017166 005737 002256 ADRPTR:: TST TP4FLG sCHECK FOR OCCURENCE OF TRAP. 
3391 017172 000261 SEC sINDICATE SUCCESS. 
3392 017174 001401 BEQ 60$ sEXIT WITH SUCCESS IF TRAP DID NOT OCCUR. 
3393 017176 000241 CLC sINDICATE FAILURE. 
3394 017200 60$: PASS sRESTORE GPRS. 
017200 004736 JSR PC ,@C(SP)+ sRETURN TO PREGOS SUBRT. 
3395 017262 000207 RTS PC 


- 
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-SBTTL GOBAL SUBROUTINE - CKTRPB - 
3398 § 9066666606066 0666 6000060606 6666600000 060606 066000000000 00000000000000000000088 
3399 34 - CHECK FOR TRAP - 
3400 34 THIS SUBROUTINE IS USED TO CHECK FOR A BUS TIME-OUT TRAP (004 TRAP) 
3401 36 WHICH IS CAUSED BY AN ACCESS TO A NON-EXISTENT MEMORY OR I/0 LOCATION 
oe] 34 IF A TRAP DOES NOT OCCUR, THIS ROUTINE RETURNS A SUCCESS INDICATION. 
3% 
3404 3% INPUTS: RO - SOURCE ADDRESS FOR MOVE 
3405 34 Rl - DESTINATION ADDRESS FOR MOVE 
te 3% CRO) - SOURCE FOR THE MOVE 
3% 
3408 34 OUTPUTS: (R1) - WRITEN TO THE CONTENTS OF (RO) 
3409 34 CARRY FLAG - SET ON RETURN IF NO 004 TRAP DETECTED 
Seat 34 TP4FLG - NONZERO IF TRAP OCCURED, CLEARED OTHERWISE. 
3% 
reat 34 CALLING SEQUENCE: JSR PC ,CKTRPB 
1 3* 
3414 3% COMMENTS: IF THIS SUBROUTINE CAUSES A TRAP, EITHER THE ADDRESS 
3415 34 WHICH IS LABELED TRPAD2 WILL BE THE TRAP PC ADDRESS ON 
3416 3% THE STACK OR SOME OTHER ADDRESS WHICH WAS PLACED ON 
3417 pe THE STACK BY AN UNEXPECTED TRAP. 
oe 34 THIS ROUTINE PERFORMS A BYTE MOV . 
3% 
3420 3% SUBORDINATE ROUTINES CALLED: NONE . 
3421 § 98866066606 6600 06600066 00060600606060066006 0600 06000006000006000606000006000000086 
3422 
3423 017204 CKTRPB: : SAVE 
none 017204 004537 005326 JSR RS ,PREGOS sCALL REGISTER SAVE SUBRT. 
3425 017210 005037 002256 CLR TP4FLG sCLEAR THE 004 TRAP FLAGS 
3426 017214 111011 MOVB (RO),CR1) sPERFORM THE BYTE MOVE 
3427 017216 005737 002256 TRPAD2:: TST TP4FLG sCHECK FOR OCCURENCE OF TRAP 
3428 017222 000261 SEC sINDICATE SUCCESS 
3429 017224 001401 BEQ 603 sEXIT WITH SUCCESS IF TRAP DID NOT OCCUR 
3430 017226 000241 CLC sINDICATE FAILURE 
3431 017230 60%: PASS H 
017230 004736 JSR PC ,@(SP)+ sRETURN TO PREGOS SUBRT. 
3432 017232 9200207 RTS PC sRETURN 

















































3462 017234 
017234 


3467 017240 
3468 017244 


1 
3472 017246 
3473 
3474 017252 
3475 017252 
017252 


3476 
3477 017254 


004537 


004737 
103002 


004737 


004736 
000207 


005326 


024246 


023152 
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- CLNRST - 


§ 9006660666 60466 6666666606666 660666066606 060060066 806006060000060 0006000000 000000008 


- Clean Reset of the Device Under Test - 
This subroutine is used to reset the DUT to e known state. 
mm antag self-test is skipped.,end the fifo is purged of eny error 
codes, etc. 
If the reset does not succesfully complete, then the cerry bit is 
pessed beck to the calling routine (clear). 


INPUTS: CSRA - Conteine the eddress of the CSR 
TXBFCA - Conteins eddress of DUT DMA Buffer Count register. 
ERRNBR - Error number for possible error report. 
ERRTBL- ERRTYP,ERNBR,end ERRMSG set up correctly. 


OUTPUTS: The DUT performs ite reset function into e known stete. 
CARRY - Clear indicetes the test is to be aborted. 
ERRBLK - velue may be destroyed. 
IESTAT - TX and RX interrupt fl ere cleared. 
TX and RX interrupt enable bits in the DUT’s CSR ere cleared. 


CALLING SEQUENCE: JSR PC ,,CLNRST 


3* COMMENTS: This subroutine cen report errors with numbers ERRNBR. 
pk This routine does not destroy the velue of ERRNBR. 
3% 


SUBORDINATE ROUTINES CALLED: DELAY, MSLGET,PUFIFO,RESETT. 


§$$666666600 666666666666 6666 60606660668 000666 0660606660066 0006 606000666000000600006 


CLNRST:: SAVE 


sSAVE CONTENTS OF GPRS RO THRU RS 
RS ,PRE 


JSR GOS sCALL REGISTER SAVE SUBRT. 


3¢ 
: Reset the DUT. 


This routine reports errors with numbers from ERRNBR thru ERRNBR+2. 


JSR PC ,RESETT sRESET THE DUT TO A KNOWN STATE. 
Bcc 608 sEXIT ROUTINE WITH ABORT TEST INDICATOR. 


3¢ 
s Purge the FIFO of error codes, seve any BMP codes found. 


60$: 


JSR PC ,PUFIFO sPURGE THE FIFO. 
sEXIT THE TEST USING RESETT OR PUFIFO STATUS. 
PASS sRESTORE GPRS, PASS THE FOLLOWING INTACT: 
JSR PC ,OCSP)+ sRETURN TO PREGOS SUBRT. 
sCARRY BIT: IF CLEAR, THEN ABORT THE TEST. 
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SEQ 0092 
GLOBAL SUBROUTINE - CLRI6W - 
3479 -SBTTL GLOBAL SUBROUTINE - CLRI6W - 
3480 gee SOOOOO SSE 666666 666606660668 FF 066000060666 06066000000600000606000000000000008 
3481 3@ - Cleer Sixteen Words Routine - 
oes | s@ Thies subroutine clears 16 words sterting with the specified word. 
a) 
oe 3@ INPUTS: RO - Address of the first word to cleer. 
3¢ 
Seat 3@ OUTPUTS: (RO) to (RO+15) - 16 words of memory ere cleared to 0. 
34 
3488 3@ CALLING SEQUENCE: JSR PC ,CLRi6W 
3489 , s¢ 
3490 3@ COMMENTS: 
3491 s@ 
3492 3@ SUBORDINATE ROUTINES CALLED: None. 
3493 t-- OO OSOO OS OOO SEES EEO E666 66 F606 668006660006 0606 000000600000660000006000080866 
3494 
3495 017256 CLRiI6W:: SAVE sSAVE CONTENTS OF GPRS RO THRU RS. 
017256 004537 005326 JSR RS ,PREGOS sCALL REGISTER SAVE SUBRT. 
3496 017262 012701 000020 MOV #16. .R1 sSET THE LOOP COUNTER TO 16. 
3497 017266 005020 23: CLR (RO)>+ sCLEAR A WORD OF MEMORY. 
3498 017270 005301 DEC Rt sCOUNT THIS LOOP. 
3499 017272 001375 BNE es ;LOOP IF NOT 16 WORD CLEARED. 
3500 017274 608: PASS sRESTORE GPRS. 
017274 004736 JSR PC OC SP)> sRETURN TO PREGOS SUBRT. 
3501 017276 000207 RTS PC 


. SS SS 
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- CONMAP - 


GLOBAL SUBROUTINE 


3523 017300 

017300 
3524 017304 
3525 017310 
3526 017312 
3527 017316 
3528 017320 
3529 017322 
3530 017324 
3531 017326 
3532 017330 
3533 017334 
3534 017336 
3535 017340 
3536 017342 
3537 017344 

017344 

017350 


3539 017352 





[ funefrnan Mave 4 _o@ Ci mur 


005326 
005236 


000010 


021276 


000014 





TCT OADT ZF MAFLAN VAL AA 


-SBTTL GLOBAL SUBROUTINE 





- CONMAP - 


38 - Convert Line bit map. 

3¢ This subrouitne is used to convert e bit mep pessed to it . into 

3¢ enother line bit map thet is besed upon the associated TX/RX line 
3@ number /offset teble. 

34 

3@ INPUTS RS - Conteins the line bit map to be transformed. 

iT) TXRXLB - Bese address of associated TX/RX line number table. 
34 

3@ OUTPUTS RS - Conteins en essosciated line bit map. 

3* 

3@ CALLING SEQUENCE: JSR PC ,CONMAP 

3*@ 

3@ COMMENTS: The TX/RX essociation table must be initialised before this 
3* routine is celled. 


34 
3@ SUBORDINATE ROUTINES CALLED: NONE. 


t-- OOOO 660606666606 66 0666066606606660006006060606606066066000600000006000000000606886 


CONMAP : : SAVE 


2s: ASR 


4$: TST 


as cite stl es 


@TXRXLB,R2 
RS ,R3 
ONUMLNS , R4 
RS 
R3 
4$ 
eaten 
PC,LINBIT 
«RS 
(R2)+ 
R4 
2$ 
RS 
MOV 
JSR 
PC 


ar A. am «42s ws 


sSAVE CONTENTS OF GPRS RO THRU RS. 

»PREGO sCALL REGISTER SAVE SUBRT. 
sGET THE BASE ADDRESS OF THE LINE ASSOC TABLE. 
sCOPY THE BIT MAP TO BE TRANSFORMED. 
sSET MAX LINE COUNTER. 
sCLEAR ASSOCIATED LINE BIT MAP. 
sSHIFT ACTLNS BIT MAP INT BOOLEAN REGISTER. 
sSKIP SETTING ASSOCIATED LINE NUMBER BIT MAP. 
sGET ASSOCIATED LINE NUMBER OFFSET FROM TABLE. 
sSHIFT RIGHT TO GET LINE NUMB FROM OFFSET. 
sGENERATE AN SINGLE BIT MAP FOR THIS LINE. 
sSET BIT FOR THIS LINE IN ASSOCIATED BIT MAP. 
sINCREMENT ADDRESS FOR THE NEXT LINE NUMBER. 
sDECREMENT LINE COUNT. 
sLOOP IF NOT DONE. 
sRESTORE GPRS, EXCEPT 
RS ,.RSSLOT( SP ) sPUT RS IN STACK SLOT. 
PC ,@(SP)+ sRETURN TO PREGOS SUBRT. 
35 - CONTAINS THE ASSOCIATED LINE BIT MAP. 








————————$—$—$—— 
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GLOBAL SUBROUTINE - DELAY - 
3541 -SBTTL GLOBAL SUBROUTINE - DELAY - 
3542 FOOOOEOOEE SESE OEEEESEEEEESEEESEDEEEDOEEOEEEEOEOOO600000066600006600000660000686806 
3543 :¢ - DELAY SUBROUTINE - 
coed 34 This subroutine is used to delay e veriable number of milli-seconds. 
7e 
3546 :@ INPUTS: R4 - Contains the number of ms to delay. 
3547 3¢ MSLCNT. 
3548 3* 
3549 3@ OUTPUTS: None. 
3550 :@ 
ose +@ CALLING SEQUENCE: JSR PC ,DELAY 
,t 
3553 :* COMMENTS: If no hardware clock interrupts ere occuring, control-Cs will 
one i¢ not be honored for the duration of the delay. 
ye 
3556 3# SUBORDINATE ROUTINES CALLED: None. 
3557 SPOS AOEEES SEES ES EEEEEE EE OEE EE OEEEEEOEOEEEOO OE 04 6000006000000600000600600008086 
3558 
3559 017354 ' DELAY:: SAVE s;SAVE CONTENTS OF GPRS RO THRU RS. 

017354 004537 005326 JSR RS ,PREGOS sCALL REGISTER SAVE SUBRT. 
3560 017360 010401 MOV R4,R1 sPASS NUMBER OF MS DELAY AS TIME-OUT VALUE. 
3561 917362 012702 177777 MOV #-1,R2 sTELL MSLOOP ROUTINE TO CHECK ALL BITS. 

3562 017366 005003 CLR R3 sTELL MSLOOP RTN TO CHECK FOR ALL BITS CLEAR. 
3563 017370 012704 017412 MOV 062% ,.R4 sTELL MSLOOP TO CHECK DUMMY NON-ZERO WORD. 
3564 017374 004737 021600 JSR PC ,MSLOOP sDELAY THE REQUESTED @ OF MS. 

3565 017400 103002 BCC 60$ sEXIT ROUTINE IF WE TIMED-OUT. ) 

3566 017402 004737 022364 JSR PC ,OOPS sIF NO TIME-OUT, BAD PROGRAM OR HOST MACHINE. 
3567 017406 60$: PASS sRESTORE GPRS. 

017406 004736 JSR PC ,.8(SP)+ sRETURN TO PREGOS SUBRT. 
— 017410 000207 RTS PC 
3570 017412 177777 62$: -WORL =-1 sDUMMY, NON-ZERO WORD. 


L 
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GLOBAL SUBROUTINE - OM166 - 


SEQ 0095 


3572 -SBTTL GLOBAL SUBROUTINE - DOM166 - 
3573 see SOOSOEEEEEEEEEEREDEEOEEEEEEEEEOEODOO060660666060060000006006600060006000600088 
3574 i¢ - CONVERT TO A 16-BIT PHYSICAL ADDRESS - 
3575 ;¢ THIS ROUTINE CONVERTS FROM PAR FORM TO A 16-BIT PHYSICAL ADDRESS, 
pide | i* OF ALTERNATE 1’S AND 0’S. 
3*# 
pode i* INPUTS: DMTSTA: - CONTAINS THE ADDRESS IN PAR FORM 
3* 
Soe i* OUTPUTS: RO - CONTAINS THE 16 BIT PHYSICAL ADDRESS 
;* 
ioe :* CALLING SEQUENCE: JSR PC ,OM168 
78 
os i* COMMENTS : USED IN THE DMA ADDRESS TEST 
3% 
3586 i* SUBROUTINES CALLED: NONE . 
3587 t-- SOCEEEOEEE OEE EE O46 OO66 06446644 44000000006600000000046400000060406000060084 
3588 
3589 017414 DM16B8:: SAVE 
017414 004537 005326 JSR RS ,PREGOS sCALL REGISTER SAVE SUBRT. 
3590 017420 013700 002264 MOV DMTSTA,RO sSHIFT THE DMA TEST ADDRESS 
3591 017424 012702 000006 MOV 06 ,R2 sSIX PLACES LEFT , TO 
3592 017430 006300 2s: ASL RO sCONVERT IT INTO A , 
3593 017432 005302 DEC Re 316-BIT PHYSICAL ADDRESS 
tes 017434 001375 BNE 2$ ; 
3596 017436 012701 000052 MOV #52,R1 sSET UP THE 6 LSB’S 
3597 017442 032700 000100 BIT #100 ,RO sIF BIT #6 OF THE PHYSICAL 
3598 017446 001402 BEQ 43 sADDRESS IS CLEAR THEN BRANCH 
3599 017450 012701 000025 MOV #25,R1 sOTHERWISE CORRECT THE LSB‘S 
aos 017454 060100 4$: ADD R1,RO sMREGE THE LSB‘S WITH THE PHY ADDR 
3603 017456 PASS RO sRETURN WITH THE PHY ADOR. 
017456 010066 000002 MOV RO,ROSLOT( SP) sPUT RO IN STACK SLOT. 
017462 004736 JSR PC,@(SP)-+ sRETURN TO PREGOS SUBRT. 
aor 017464 000207 RTS PC 








i PunePrnA Masse @ Cimr TST BART BS MAARA 114A AA on “a a = a ae a iin a 
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SEQ 0096 
GLOBAL SUBROUTINE - DM16B - 
3607 
3608 -SBTTL GLOBAL SUBROUTINE - DOMRW - 
3609 5 O% SOBO6660 660006000000 00 06 000006000000000000000000000000000000600000000000008 
3610 ;¢ - READ/WRITE DATA FROM/TO (DMTSTA) - 
3611 18 THIS ROUTINE READS DATA BYTES FROM OR WRITES DATA BYTES TO AN ADOR OF 
3612 pr ALTERNATE 1‘S AND 0’S . BITS 21 TO 6 OF THE ADDR ARE CONTAINED AT 
3613 18 DMTSTA. THE ROUTINE APPENDS THE 6 LSB’S TO PRODUCE AN ADOR OF ALTERNATE 
oes 36 1'S AND 0’'S. THIS ROUTINE IS CALLED FROM THE DMA ADDRESS TEST. 
4 
3616 3@ INPUTS: RO - ADDRESS OF THE DATA TO BE WRITTEN TO (DMTSTA), 
3617 ;@ IF A WRITE IS SPECIFIED. 
3618 16 Ri - ADDRESS OF THE AREA IN WHICH DATA FROM (DMTSTA), 
3619 ;¢ IS T° BE SAVED, IF A READ IS SPECIFIED. 
3620 8 R3 - NUMBER OF DATA BYTES TO BE READ/WRITTEN 
3621 1e RS - CLEAR , SPECIFIES A READ FROM (DMTSTA) 
3622 34 SET , SPECIFIES A WRITE TO (DMTSTA). 
3623 ;* DMTSTA - CONTAINS BITS 21 TO 6 OF THE ADDR. 
3624 1s MMSRO - ADDRESS OF MEM MGT STATUS REG #0 
3625 18 MMPRES - BIT #0 SET, INDICATES MEM MGT PRESENT 
3626 34 PARA6 - ADDRESS OF MEM MGT PAR 06 
3627 ;* {t is replaced with PARS) $$$ 
3628 34 TP4FLG - 004 TRAP FLAGS 
3629 34 
3630 3# OUTPUTS: DATA AT COMTSTA) SAVED OR WRITTEN 
3631 34 PAR #6 - CONTENTS SET TO CONTENTS OF DMTSTA 
3632 a8 {(t is replaced with PARS) $$$ 
3633 34 TP4FLG - CLEAR IF READ/WRITE SUCCESSFUL 
3634 ;* SET IF FAIL. 
3635 3* 
ote 3# CALLING SEQUENCE: JSR PC ,OMRW 
3*# 
3638 3;*# COMENTS: IF MEM MGT IS PRESENT THE SUBROUTINE USES (DMTSTA) 
3639 ;* AS THE PAGE ADDRESS , PLACING IT IN PAR @5, AND CREATES 
3640 34 A VIRTUAL ADOR IN THE RANGE OF PAR @S WHICH CONTAINS 
3641 3% THE SIX LSB’S. 
3642 34 IF IT IS NOT PRESENT THE (OMTSTA) IS CONVERTED INTO 
pees 34 THE EQUIVALENT 16 BIT PHYSICAL ADDRESS. 
3% 
3645 s* SUBORDINATE ROUTINES CALLED: CKTRAP,DM16B. 
3646 5 -- 8066666 66660606666660006006060660600000000600 06 000000000600000000000000008 
3647 
3648 017466 OMRW:: SAVE 
— 017466 004537 005326 JSR RS ,PREGOS ;CALL REGISTER SAVE SUBRT. 
3650 017472 010004 MOV RO,R4 sSAVE THE SOURCE ADDR 
3651 017474 005737 002322 TST MMPRES ;IF MEM MGT IS PRESENT THEN 
3652 017500 001003 BNE 6$ ;JUMP AND SET UP THE PAR @5 $$$ 
3653 017502 004737 017414 JSR PC ,OM168 sOTHERWISE CONVERT DMTSTA INTO A 16-B8IT 
3654 sPHYSICAL ADDRESS, IN RO. 
3655 017506 000416 BR 10$ sJUMP TO PERFORM THE MOVE 
3656 017510 013777 002264 162622 6%: MOV DMTSTA,@PARSA ;SET PAR @5 $$$ 
3657 017516 012700 120052 MOV #120052,R0 sSET THE SIX LSB‘S AND CONVERT TO 
3658 sA VIRTUAL ADDRESS WITHIN THE INFLUENCE 
3659 3;0F PAR @5. $$$ 
3660 017522 032737 000001 002264 BIT #1,OMTSTA ;IF BIT #0 OF DMTSTA IS CLEAR THEN 
3661 017530 001402 BEQ 8$ sAVOID CHANGING THE LSB’S 
3662 017532 012700 120025 MOV #120025,R0 ;CHANGE THE LSB‘S 
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SEQ 0097 
GLOBAL SUBROUTINE - OMRW - 

3663 017536 012777 000001 162552 8%: MOV 8 1TO, GMMSRO sENABLE MEM MGT. 

3664 017544 005705 10$: TST RS sIF A READ IS SPECIFIED THEN 

3665 017546 001402 BEQ 12$ sAVOID SWAPING THE SOURCE AND DESTINATION. 

3666 017550 010001 MOV RO,R1 s SWAP 

3667 017552 010400 MOV R4,RO ;RESTORE THE ORIGINAL SOURCE FOR THE MOVE. 

3668 017554 004737 017204 12$: JSR PC ,CKTRPB sPERFORM THE BYTE MOVE. 

3669 017560 103004 BCC 14$ sEXIT IF A TRAP OCCURED. 

3670 017562 005201 INC R1 sINCREMENT THE DESTINATION ADDRESS 

3671 017564 005200 INC RO sINCREMENT THE SOURCE ADOR. 

3672 017566 005303 DEC R3 sDECREMENT THE DATA 

3673 017570 001371 BNF 12$ sREPEAT UNTIL ALL DATA READ/WRITTEN 

3674 017572 005737 002322 14%: lot MMPRES ‘a MEM MGT IS PRESENT THEN 

3675 017576 001402 BEQ 16$ 

3676 017600 005077 162512 CLR @MMSRO ;DISABLE IT. 

3677 017604 16$: PASS 

017604 004736 JSR PC ,@(SP)+ sRETURN TO PREGOS SUBRT. 
od 017606 000207 RTS PC 


CVDHCDO DHV11-M FUNC TST PART 3 MACRO VOS.00 Thursday 25-Apr-85 16:37 Page 72 






























CVDHCDO DHV11-M FUNC TST PART 3 MACRO VOS.00 Thursday 25-Apr-85 16:37 Page 72 


SEQ 0098 
GLOBAL SUBROUTINE - DODMA - 

3681 -SBTTL GLOBAL SUBROUTINE - DODMA - 
3682 $0 SOOOOOO6 00600004 066666 00060606 060000 000006000000000000000060000000000000008 
3683 s¢ - Initiate DMA Transmission Routine - 

3@ This routine writes the DMA perameter to the specified device and 
poet 38 initiates the DMA transmission. 

3% 
3687 3@ INPUTS: Rl - Line number on which to initiate the DMA. 
3688 3* R2 - Stert eddress of the DMA buffer (16 bit virtuel). 
3689 34 R3 - Character count of the DMA buffer. 
3690 3* CSRA - Contains address of the DUT CSR. 
3691 i IESTAT - Storage for states of the interrupt enable bits. 
3692 3¢ MMENAB - yt oy fleg (0 if MEM MGT not enabled). 
3693 34 HOST MEM MGT PAR REGISTERS - If MEM MGT is in use. 
3694 34 TXADIA - Conteins eddress of DMA TX buffer address reg #1. 
3695 34 TXAD2A - Contains address of OMA TX buffer address reg ¢2. 
sone 36 TXBFCA - Conteins address of DMA character count register. 

3* P 
3698 3# OUTPUTS: CARRY - Success flag (set if OMA_START found clear). 
3699 ;¢ DUT TBUFFAD1 - LS 16 bits of DMA buffer address (initialized). 
3700 3* DUT TBUFFAD2 - MS 6 bits of DMA buffer address (initialized), 
3701 ia DMA_START bit set. 
dae ie DUT TBUFFCT - DMA buffer character count (initielized). 

3% 
dae: 3# CALLING SEQUENCE: JSR PC ,DODMA 

34 
3706 3 COMMENTS: This routine determines if Memory Management is being used 
dead ;* end sets up the full 22 bit physical address if necessary. 

3% 
3709 s# SUBORDINATE ROUTINES CALLED: None. 
3710 j-- S06660606060660608 666660006606060600000006060600000000000060000000000008008 
3711 
3712 017610 DODMA:: SAVE sSAVE CONTENTS OF GPRS RO THRU RS. 

017610 004537 005326 JSR RS ,PREGOS s;CALL REGISTER SAVE SUBRT. 
3713 017614 012704 000200 MOV #200 ,R4 sPREPARE TO CLEAR UPPER 6 BITS OF DMA BUFF ADR. 
3714 017620 005737 002324 TST MMENAB sCHECK FOR MEMORY MANAGEMENT IN USE. 
sree 017624 001427 BEQ 6$ sGOTO SET UP DEVICE IF MEM MGT NOT IN USE. 

1 3° 
3717 ; Memmory management is in use. 
ze ; Construct 22 bit physical address from the 16 bit virtuel address. 

1 3° 
3720 017626 010205 MOV R2,R5 sSTRIP THE MOST SIGNIFICANT 3 BITS OF THE 
3721 017630 012700 000005 MOV #5,RO0 :; OMA BUFFER VIRTUAL ADDRESS AND MULTIPLY 
3722 017634 006105 2s: ROL RS ; THEIR VALUE BY TWO TO GET AN OFFSET INTO 
3723 017636 005300 DEC RO s THE TABLE OF MEMMORY MANAGEMENT PAGE 
3724 017640 001375 BNE 2s s ADDRESS REGISTERS (PAR). 
3725 017642 042705 177761 BIC #177761,R5 3 
3726 017646 063705 002326 ADD PAROA,RS sADD IN THE BASE VALUE OF THE MM PAR REGISTERS. 
3727 017652 011505 MOV CRS),RS sGET THE 16 BIT PHYSICAL ADDRESS BLOCK COUNT. 
3728 017654 012700 000006 MOV #6 ,RO sSHIFT UPPER 6 BITS OF THE PHYSICAL ADDRESS 
3729 017660 006305 4$: ASL RS s BLOCK COUNT (GOTTEN FROM THE PROPER PAR) 
3730 017662 006104 ROL R4 s INTO THE LS 6 BITS OF THE WORD TO WRITE 
3731 017664 005300 DEC RO s INTO THE DUT TBUFFAD2 REGISTER. 
3732 017666 00i374 BNE as F 
3733 017670 042702 160000 BIC #160000, R2 sADD THE 13 BIT DISPLACEMENT FIELD FROM VIRTUAL 
3734 017674 060502 ADD RS ,R2 ; ADR TO THE SHIFTED BLOCK NUMBER FROM THE 
3735 017676 005504 ADC R4 ; MEMMORY MANAGEMENT PAR. 
3736 017700 052704 000200 BIS #200 ,R4 sSET THE DMA_START BIT IN WORD FOR TBUFFAD2. 
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- DODMA - 


GLOBAL SUBROUTINE 


3747 017706 106427 000340 
3748 017712 053701 002234 
3749 017716 010177 162260 
3750 017722 105777 162270 


3753 017732 010377 162262 
3754 017736 010277 162252 
3755 017742 110477 162250 


3760 017754 000207 


LL 
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* 


60$: 


Diseble interrupts. 
Set up DUT CSR IND.ADR.REG field. 
Write the OMA transmit cherecter count. 
Write the least significant 16 bits of the DMA buffer stert address. 
Write the most significant 6 bits of the address, 

setting the DMA_START bit, and initiating the DMA transmission. 


sGET THE PRESENT PROCESSOR PRIORITY. 
sDISABLE ALL HARDWARE INTERRUPTS. 

sPREPARE FOR SETUP OF LINE NUMBER IN DUT CSR. 
sSET UP THE DUT CSR IND.ADR.REG FIELD. 

sTEST THE DUT DMA_START BIT. 

sINDICATE FAILURE IN CASE DMA.HO BIT IS SET. 
sEXIT WITH FAILURE IF DMA.HO BIT IS SET. 
sWRITE THE OMA CHARACTER COUNT. 

sWRITE THE LS 16 BITS OF BUFFER ADDRESS. 
sWRITE MS 6 BITS OF ADR AND START DMA TX. 
sRESTORE THE PROCESSOR PRIORITY. 

sINDICATE SUCCESS. 


sRESTORE GPRS, 
PC ,@(SP)-+ sRETURN TO PREGOS SUBRT. 


RS 

@PRIO7 
IESTAT,R1 
R1,8CSRA 
@TXAD2A 


608 
R3,@TXBFCA 
R2,@TXAD1A 
R4,@TXAD2A 
RS 


JSR 
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Write the DMA parameters out to the DUT DMA registers. 


CARRY - SUCCESS FLAG (SET IF SUCCESS). 
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GLOBAL SUBROUTINE 


005326 


000010 
002174 
000001 


000004 
000014 


= 
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- FINACT - 


-SBTTL GLOBAL SUBROUTINE 
59% SORO6S666666 660600666640 00000060600060000006060000000000000000000000000000000 
- FIND FIRST ACTIVE LINE - 

This subroutine calculates the number of the first active line thet 

is found in the active line bit map ACTLNS. 


ACTLNS - Contains the active line bit map. 
R1 - Contains the number of the first active line. 


RS - Contains the bit map representation of the active line. 
Carry set indicates success. 


FINACT:: SAVE 


2s: 


4$: 


INPUTS: 


CALLING SEQUENCE: 


COMMENTS: 


s# SUBORDINATE ROUTINES CALLED: NONE. 
i-- S8O66666 6646066606 0606 060606 0606 0600000000000000000000000060000000000008006 


3? 


JSR 


JSR 


- FINACT - 


PC .FINACT 


sSAVE CONTENTS OF GPRS RO THRU RS. 
RS ,PREGOS sCALL REGISTER SAVE SUBRT. 


i Find an active line on which to perform the test. 


RTS 





sCLEAR THE LINE NUMBER COUNTER. 

sGET MAX LINE NUMBER. 

sGET THE ACTIVE LINE BIT MAP. 

sSET UP A LINE BIT MASK. 

sLOOK FOR AN ACTIVE LINE. 

sBRANCH TO BEGIN TEST IF A LINE HAS BEEN FOUND. 
sSHIFT THE BIT MASK FOR THE NEXT LINE. 
sINCREMENT THE LINE NUMBER COUNTER. 
sCHECK IF ALL LINES HAVE BEEN TRIED. 
sLOOP TO TRY THE NEXT LINE. 

sCLEAR CARRY BIT, NO ACTIVE LINE FOUND. 
sEXIT WITH FAILURE. 

sSET CARRY, SUCCESS. 


sRESTORE GPRS, EXCEPT 
R1,R1ISLOT(SP) 

RS ,RSSLOTC SP) 

PC ,@C(SP)+ 

sRi - CONTAINS THE NUMBER OF FIRST ACTIVE LINE. 
sRS_- CONTAINS THE BIT MAP OF THE ACTIVE LINE. 
sCARRY - SET INDICATES SUCCESS. 


sPUT Ri IN STACK SLOT. 
sPUT RS IN STACK SLOT. 


sRETURN TO PREGOS SUBRT. 


SEQ 0100 
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SEQ 0101 
GLOBAL SUBROUTINE - FRPSUP - 
3805 -SBTTL GLOBAL SUBROUTINE - FRPSUP - 
3806 see SOOO 6666066606666 64 6666006606 00006600 660606000000 0000000000000000000008004 
od ;¢ - FRAMING AND PARITY ERROR TRANSMISSION/RECEPTION SET-UP - 
Gt 
3809 ;¢ This routine is used to initielise both the DUT and the 
3810 3¢ transmission/reception control perameters to the correct 
3811 3* stete, prior to @ framing or perity error detection end 
3812 ;@ reporting test. 
3813 34 
3814 3@ INPUTS RO - LPR contents for lines in the bit map in GPR4. 
3615 34 Ri - LPR contents for lines not in the bit map in GPR4. 
3816 34 R2 - Start address of date pattern to transmit. 
3817 34 R3 - Length of the dete pattern to TX. 
3818 34 R4 - Local line group bit map. 
3819 34 ACTLNS - Contains e bit map of ell currently active lines. 
3820 pe LOPBCK - Conteins the i of loopback mode selected. 
sees 34 CBB - Lebel at base of TX/RX control block. 
3% 
3623 3* OUTPUTS: The contents of the TXRCB ere destroyed. 
3824 ;* The indirect address field of the DUT CSR may be destroyed. 
3825 34 The DUT’s LPR’s and LNC’s may be modified. 
3826 ;4 The following pointers and counters ere initialised; 
3827 34 CHCNT , CHRTOT ,OPEND ,DPLEN,EXCNT ,RXCNT ,RXDONF ,RXPTR, TXCNT, 
3828 34 TXDONF , TXPTR, TXRXL. 
3829 3 
soy 3# CALLING SEQUENCE: JSR PC ,FRPSUP 
3% 
3832 3# COMMENTS: This routine should be called twice during the testing of 
3833 34 the framing and perity error detection and reporting test. 
3834 34 So thet both line groups are tested on transmission and 
3835 34 reception. 
3836 ;* JSR PC, FRPSUP ; do set-up. 
3837 34 Execute test for the above set-up. 
3838 ;* Complement the line group bit map. 
3839 ;4 JSR PC,FRPSUP :do set up again. 
3840 ;4 Execute test agein. 
3841 78 
3842 s* SUBORDINATE ROUTINES CALLED: TXRINI. 
3843 t-- $066 06 666666 66660006 66660666006666006606006606006060000060600660600000000608 
3844 
3845 020036 FRPSUP:: SAVE sSAVE THE CONTENTS OF THE GPR‘S. 
020036 004537 005326 JSR RS ,PREGOS sCALL REGISTER SAVE SUBRT. 
3846 020042 010037 020276 MOV RO,708 sSAVE LPR PARAMETER FOR LINE TX. 
oer 020046 010137 020300 MOV R1,72$ sSAVE LPR PARAMETER FOR LINE RX. 
¢ 
3849 + Set up the Transmission/Reception Control block to initielise the 
zoee ; active lines in the bit map passed into this routine. 
1 Tog 
3852 020052 010037 003124 MOV RO,CBB sSET CONTENTS OF LPR PARAMS IN TX/RX C.BLK. 
3853 020056 012700 003126 MOV @CBB+2,R0 sGET ADDRESS OF THE NEXT WORD IN THE CNTRL BLK. 
3854 020062 012720 000004 MOV 04,(RO)+ sLNCTRL PARAMETER, ENABLE RECEIVERS. 
3855 020066 010220 MOV R2,CRO)+ sSTART ADDRESS OF DATA PATTERN. 
3856 020070 010320 MOV R3,CRO)> sSET DATA PATTERN LENGTH. 
3857 020072 012720 000001 MOV #1,(RO)>+ sNUMBER OF DATA PATTERNS TO TRANSMIT. 
3858 020076 013710 002174 MOV ACTLNS ,CRO) sBIT MAP OF LINES TO INITIALISE. 
3859 020102 005104 COM R4 sGENERATE A BIT MAP OF ACTIVE LINES IN GRP1. 
3860 020104 040420 etc R4,(RO)> sCLEAR THE UNWANTED LINES. 
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SEQ 0102 
GLOBAL SUBROUTINE - FRPSUP - 
3861 020106 113720 002176 MOVB LOPBCK,(RO)>+ sSET LOOPBACK MODE ,STAGGARED. 
3862 020112 005200 INC RO sINCREMENT ADDRESS TO GET NEXT WORD IN TABLE. 
3863 020114 012710 000001 MOV #1,(RO) sSET AMMOUNT OF OFFSET FOR EACH TX START. 
3865 3* 
3866 s Initialise the DUT and the associated pointers end counters, to the state 
zee ; dicteted by the contents of the TX/RX control block. 
ge 
cos 020120 004737 026114 JSR PC, TXRINI sINITIALISE DuT. 
3¢ 
sore + Set up Control block for lines in group 2. 
ge 
3873 020124 012700 003124 MOV CBB RO sGET START ADDRESS OF CONTROL BLOCK. 
3874 020130 010120 MOV R1,CRO)> sSET LPR PARAMETER FOR RX LINES. 
3875 020132 062700 000010 ADO #10,R0 sSELECT THE ADORESS OF THE LINE BIT MAP IN C.B. 
3876 020136 013710 002174 MOV ACTLNS ,CRO) sBIT MAP OF LINES TO INITIALISE. 
3877 020142 005104 COM R4 sGENERATE A BIT MAP OF LINES IN GRP 2. 
ada 020144 040410 BIC R4,CRO) sCLEAR THE UNWANTED LINES. 
;¢ 
3880 s Initielise the DUT and the essocieted pointers and counters, to the state 
oest ; dictated by the contents of the TX/RX control block. 
ge 
cos 020146 004737 026114 JSR PC , TXRINI sINITIALISE DUT. 
3885 :¢ 
3886 ; Set-up the required LPR perameters needed for the correct reception of date 
3887 3 On associated in-active lines. 
3888 s- 
3889 3° 
aoe s Initialise LPR peremeters for inactive lines in GROUP 2. 
ge 
3892 020152 012701 000377 MOV @MAPLNS,R1 sSET UP BIT MAP CORRESPONDING TO ALL LINES. 
3893 020156 013702 002174 MOV ACTLNS ,R2 sGET THE ACTIVE (TX) LINE BIT MAP. 
3894 020162 005101 COM R1 sGENERATE A BIT MAP OF NONE EXISTANT LINES. “ 
3895 020164 005102 COM Re sGENERATE A BIT MAP OF INACTIVE LINES. 
3896 020166 040102 BIC R1,R2 sCLEAR ANY “NONE EXISTANT” INACTIVE LINES. 
3897 020170 040402 BIC R4,R2 3 
3898 020172 010237 003136 MOV R2,CBMAPA sSET UP BIT MAP IN CONTROL BLOCK. 
3899 020176 005037 003134 CLR CBOPNA sCLEAR REPEAT TX COUNT IN CONTROL BLOCK. 
3900 020202 013737 020300 003124 MOV 72%, CBLPRA sSET-UP COMPLEMENTARY LPR PARM. 
sees 020210 004737 026114 JSR PC, TXRINI sINITIALISE INACTIVE LINES. 
3¢ 
ror : Initielise LPR peremeters for inaactive lines in GROUP 1. 
ge 
3905 020214 013702 002174 MOV ACTLNS ,R2 sGET THE ACTIVE (TX) LINE BIT MAP. 
3906 020220 005102 COM R2 sGENERATE A BIT MAP OF INACTIVE LINES. 
3907 020222 040102 BIC R1,R2 sCLEAR ANY NONE EXISTANT INACTIVE LINES. 
3908 020224 005104 COM Ra F 
3909 020226 040402 BIC R4,R2 sONLY PASS LGRP2 ASSOCIATED LINE BIT MAP. 
3910 020230 010237 003136 MOV R2,CBMAPA sSET-UP BIT MAP IN CONTROL BLOCK. 
3911 020234 013737 020276 003124 MOV 70$,CBLPRA sSET-UP COMPLAMENTARY LPR PARAM FOR LGRP1. 
ey 020242 004737 026114 JSR PC, TXRINI sINITIALISE INACTIVE LINES IN LGRP1. 
3¢ 
3914 ; Disable Receivers on all lines to ensure thet only the receivers of the 
3915 s associated active (TX) lines are enabled.(steggered loopback ) 
sees s Re-eneble reception on the correct associated lines. 
ge 
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MOV @MAPLNS , RS 
3919 020252 004737 024460 JSR PC ,RXDSBL sDISABLE RX ON ALL LINES. 


3920 3° 
oes 3; Enable receivers on associated (RX) lines. 
td 
3923 020256 013705 002174 MOV ACTLNS ,RS sGET ACTIVE (TX) LINE BIT MAP. 
3924 020262 004737 017300 JSR PC ,.CONMAP sGENERATE AN ASSOCIATED (RX) LINE BIT MAP. 
oes 020266 004737 024554 JSR PC ,.RXENBL sENABLE RECEIVERS ON ASSOCIATED LINES. 


3927 020272 60$: PASS sRESTORE GRP‘S. 
020272 004736 JSR PC ,@CSP)+ sRETURN TO PREGOS SUBRT. 
3928 020274 000207 RTS PC 
3929 020276 000000 708: -WORD 0 sLOCAL STORAGE OF LPR PARAMETER TX. 
tes 020300 000000 72$: -WORD 0 sLOCAL STORAGE OF LPR PARAMETER RX. 


SEQ 0103 






- FRPSUP - 





000377 sSET-UP BIT MAP FOR ALL LINES. 
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020302 004537 
roe 020306 013705 


3958 020312 012737 


3$44 020344 012701 
3965 020350 012703 


3966 

3967 020354 020243 
3968 020356 001416 
3969 020360 005301 
3970 020362 001374 


3972 020364 020243 
3973 020366 001412 


3978 020370 
020370 010246 


005326 
002266 


002260 


002266 


000017 
002466 
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3% This routine requests e beudrete input from the operetor. This 
36 beudrate is looked up in e teble to give the LPR beudrete field 
34 velue which is essocieted with thet ete. 

Ge 

3@ INPUTS: BORMSG - Lebel et the beudrete proapt message. 

7@ BRIBLE - Lebel efter end of the beudrete table. 

;e UBRFMT - Lebel et the unsupported beudrate message. 

3% 

s@ OUTPUTS: Rl - Beudrate code in LS 4 bits. 


s@ COMMENTS: 


34 
s# SUBORDINATE ROUTINES CALLED: None. 
t-- $666606 6606006666 06666606600606060060000006606060000000000060000000000000000000 


GETBOR:: SAVE 

MOV GMANWD ,RS 
3¢ 
s Prompt the operator: “MODEM BAUDRATE IN BPS: (D) 1200 2?” 


: 
002266 2%: MOV NWO 
GMANID BORMSG,GMANWO,D,177777,0,38400., 


TRAP C#GMAN 
6R 100009 
-WORD GMANWO 
«WORD TSCODE 
-WORD BDRMSG 
«WORD 177777 
-WORD TSLOLIM 
-WORD TSHILIM 
100008: 
MOV GMANWOD ,R2 
3¢ 
s Attempt to look the velue up in the beudrete teble. 
t- 
MOV #15. ,R1 sINITIALIZE BAUDRATE CODE TO HIGHEST BAUDRATE. 
MOV @BRTBLE RS sINITIALIZE BAUDRATE POINTER. 
4; CMP R2,-CR3) sCOMPARE BAUDRATE WITH A TABLE ENTRY. 
BEQ 60% sBAUDRATES COMPARE? YES, EXIT WITH CODE. 
DEC R1 sNO, SET BAUDRATE CODE TO NEXT LOWER BAUDRATE. 
43 sDONE? NO, LOOP. 
CMP R2,-CR3) sCHECK IF LAST BAUDRATE MATCHES. 
BEQ 60% sBAUDRATES MATCH? YES, EXIT WITH CODE. 


e 
; Report “nannn IS NOT A SUPPORTED BAUDRATE, ENTER ANOTHER OR CTRL C.° 
PRINTF @UBRFMT,R2 


-SBTTL GLOBAL SUBROUTINE 
50% S0O880000606000000000600000600000000000000000000000000000000000000000000000 


* 
s@ CALLING SEQUENCE: JSR 
& 











- Get Beudrete Subroutine - 














PC ,GETBOR 










sSAVE CONTENTS OF GPRS RO THRU RS. 
PREGOS sCALL REGISTER SAVE SUBRT. 


JSR RS, 
sSAVE THE GMAINIx VALUE. 









#1200. ,GMA 





sSET UP — VALUE TO 1200 BAUD. 
















MOV R2,-CSP) 
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GLOBAL SUBROUTINE 


24 
3983 020426 


a 





007532 
goebes 








- GETBOR - 


BR 2s 
603: MOV RS ,GMANWD 
PASS R 
MOV 
JSR 
RTS PC 







sLOOP TO GET ANOTHER BAUDRATE. 


sRESTORE THE GMANIx PARAMETER VALUE. 
sRESTORE GPRS, EXCEPT THE FOLLOWING: 
Ri ,RISLOT( SP ) sPUT R1 IN STACK SLOT. 
PC, de sRETURN TO PREGOS SUBRT. 
s Ri - BAUDRATE CODE. 


= qcatt Gi wnsins came dg Gk a ee ee 
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GLOBAL SUBROUTINE - GETCHR - 


SEQ 0106 







3985 -SBTTL GLOBAL SUBROUTINE - GETCHR - 
ZQRG gee OOOO 0666 660006066666 0006 6600006000 000660000066600606600000600000000600000800008 
3987 ;¢ - Get e Cherecter From the RX Buffer Routine - 
3988 3¢ This subroutine gets e cherecter from the RX buffer which is in the 
3989 3¢ host system memory. If the buffer is empty upon entry of this routine 
3990 3¢ this routine returns e null cherecter with DATA.VALID cleer end « 
3991 34 buffer empty indication. 
3992 :é 
3993 3@ INPUTS: RXBCNT - RX buffer cheracter count. 
3994 3¢ RXBEND - Lebel efter end of the RX buffer erea in memory. 
3995 34 RXBETX - Equated to RX buffer level at which to enable +x, 
3996 34 RXBOPT - Pointer to next eaveileble input slot of RX buffer. 
ieee :¢ RXBSTA - Label at stert of RX buffer area in memory. 

;¢@ 
3999 3@ OUTPUTS: R2 - Character which is reed from the buffer. 
4000 ;4 RXBOPT - Updated to point to next input slot of RX buffer. 
4001 34 RXBCNT - RX buffer character count (Updated). 
eee 38 CARRY - “Success” fleg (Set if buffer is not empty on entry). 
4 3¢ 
4004 3# CALLING SEQUENCE: JSP PC ,GETCHR 
4005 34 
4006 3@ COMMENTS: 
4007 3* 
4008 3# SUBORDINATE ROUTINES CALLED: None. 
4009 t-- SOOEOOOS 66 OE EE EEEE ES 66666606 666006 066000 6600006606000000000606860000 080400646 
4010 
4011 020430 GETCHR:: SAVE sSAVE CONTENTS OF GPRS RO THRU RS. 

020430 004537 005326 JSR RS ,PREGOS sCALL REGISTER SAVE SUBRT. 
4012 020434 005000 CLR FO sCLEAR THE “RE-ENABLE” TX FLAG (SUBRTN OUTPUT). 
4013 020436 005002 CLR R2 sGET NULL CHAR IN CASE BUFFER IS EMPTY. 

4014 020440 005737 002720 TST RXBCNT sCHECK FOR RX BUFFER EMPTY, CLEAR CARRY. 
4015 020444 001416 BEQ 60$ sEXIT THE ROUTINE IF BUFFER IS <MPTY. 
4016 020446 013704 002714 MOV RXBOPT .R4 sGET THE BUFFER OUTPUT POINTER. 

4017 020452 011402 MOV (R4) ,R2 ;GET A CHARACTER FROM THE BUFFER. 

4018 020454 005024 CLR CR4)+ sDELETE THE READ CHARACTER FROM THE BUFFER. 
4019 020456 020427 003122 CMP R4, ORXBEND sCHECK IF POINTER SHOULD WRAP AROUND. 
4020 020462 103402 BLO 2s sSKIP WRAPAROUND IF POINTER IS NOT AT END. 
4021 020464 012704 002722 MOV ORXBSTA,R4 sWRAP INPUT POINTER AROUND. 

a 020470 010437 002714 2s: MOV R4,RXBOPT sUPDATE THE OUTPUT POINTER STORAGE. 

402 

4024 020474 005337 002720 DEC RXBCNT sREMOVE THIS CHAR FROM THE BUFFER COUNT. 
— 020500 000261 SEC sSET SUCCESS FLAG, BUFFER WAS NOT EMPTY. 
402 

4027 020502 60$ PASS R2 sRESTORE GPRS, EXCEPT 

020502 010266 000006 MOV R2,R2SLOTC( SP) ;PUT R2 IN STACK SLOT. 

020506 004736 JSR PC ,8(SP)+ ;RETURN TO PREGOS SUBRT. 
4028 sR2 - CONTAINS THE CHARACTER READ FROM BUFFER. 
4029 sCARRY-"SUCCESS” FLAG, SET IF BUFFER NOT EMPTY. 
4030 020510 000207 RTS PC 





& 
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SEQ 0107 
GLOBAL SUBROUTINE - GETLP1 - 
4032 -SBTTL GLOBAL SUBROUTINE - GETLP1 - 
4033 aoe SOOO EE ESOS EEEEEEOEO4 O46 66660606000600000000006060606060606060660000000000006 
4034 3* - Get Line Parameters Routine Number One - 
4035 34 This routine is used to repeatedly get combinations of line perameter 
4036 34 contents for the Single Cherecter Mode TX/RX Test (short date pattern). 
4037 34 Eech time this routine is celled it gets another combination of the 
4038 34 pereaters in the peramter tables until all combinations have been 
aaee 34 returned at which point it returns e “failure” indication. 
34 
4041 3* INPUTS Single cherecter mode, short dete pattern TX/RX tables: 
4042 34 SCBCT - Number of bits per cher table (4 entries). 
4043 34 SCBRT - Baudrates table (3 entries). 
4044 34 SCNST - Number of stop bits bits table (2 entries). 
4045 34 SCTPT - Type of perity teble (3 entries). 
4046 34 Each teble has a bese and end lebel consisti of the name of 
4047 34 the table with a “B” and "E” appended respectively. 
4048 34 Rl thru R4 - Pointers into SCBCT thru SCTPT tables respectivly. 
poo s* Rl is cleer if this is the first call of GETLP1. 
4 3* 
4051 * 3@ OUTPUTS: RO - Composed LPR contents, clear if failure (Done). 
at 34 Ri thru R4 - Table pointers (Updated). 
4 3* 
sone 3# CALLING SEQUENCE: JSR PC,GETLP1 
405 3* 
4056 3@ COMMENTS: This routine should be used in con tion with a SWAPx 
ree 3 :é routine to avoid destroying the GPR contents. 
4 3* 
4059 3# SUBORDINATE ROUTINES CALLED: None. 
4060 t-- $806 666066646660 6606660 6606 6606066600 664006060006006640000068 400646000000 4044006 
4061 
4062 020512 GETLP1:: SAVE sSAVE CONTENTS OF GPRS RO THRU RS. 

020512 004537 005326 JSR R5 ,PREGOS ;CALL REGISTER SAVE SUBRT. 
4063 020516 005701 TST R1 sTEST FOR THIS BEING FIRST CALL OF GETLP1. 
4064 020520 001010 BNE 2s sSKIP ORIGINAL SET UP IF NOT FIRST CALL. 

4065 020522 012701 005044 MOV @SCBCTB,R1 sINITIALIZE BITS PER CHAR TABLE POINTER. 
4066 020526 012702 005054 MOV @SCBRTB,R2 sINITIALIZE BAUDRATE TABLE POINTER. 

4067 020532 012703 005062 MOV @SCNSTB,R3 sINITIALIZE @ OF STOP BITS TABLE POINTER. 
oose 020536 012704 005066 MOV #SCTPTB,R4 sINITIALIZE TYPE OF PARITY TABLE POINTER. 
406 

4070 020542 020427 005074 2s: CMP R4, @SCTPTE ;CHECK FOR POINTER AT END OF TABLE. 

4071 020546 103425 BLO 4s :GO GET LPR CONTENTS IF NOT AT END OF TABLE. 
4072 020550 012704 005066 MOV @SCTPTB,R4 sRESET POINTER TO BEGINNING OF TABLE. 

4073 020554 005723 TST C(R3)+ sINC THE @ OF STOP BITS TABLE POINTER BY 2. 
4074 020556 020327 005066 CMP R3, @SCNSTE sCHECK FOR POINTER AT END OF TABLE. 

4075 020562 103417 BLO 4$ 3GO GET LPR CONTENTS IF NOT AT END OF TABLE. 
4076 020564 012703 005062 MOV @SCNSTB,R3 sRESET POINTER TO BEGINNING OF TABLE. 

4077 020570 005722 TST (R2)+ sINC BAUD RATES TABLE POINTER BY 2. 

4078 020572 020227 005062 CMP R2,@SCBRTE s;CHECK FOR POINTER AT END OF TABLE. 

4079 020576 103411 BLO as sGO GET LPR CONTENTS IF NOT AT END OF TABLE. 
4080 020600 012702 005054 MOV @SCBRTB,R2 sRESET POINTER TO BEGINNING OF TABLE. 

4081 020604 005721 TST (R1)+ sINC THE BITS PER CHAR TABLE POINTER BY 2. 
4082 020606 020127 005054 CMP R1,@SCBCTE ;CHECK FOR POINTER AT END OF TABLE. 

4083 020612 103403 BLO 4$ 3GO GET LPR CONTENTS IF NOT AT END OF TABLE. 
4084 020614 005000 CLR RO sPREPARE TO PASS OUT CLEAR LPR FIELDS. 

4085 020616 000241 CLC sINDICATE “FAILURE” FOR EXIT. 

a 029620 000405 BR 60$ sEXIT WITH “FAILURE”, WE'RE DONE. 
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GLOBAL SUBROUTINE - GETLP1 - 





4088 020622 011100 4$: MOV (R1),RO sGET THE BITS/CHAR FIELD OF NEW LPR CONTENTS. 

4089 020624 051200 BIS CR2),RO sINCLUDE THE BAUD RATE FIELDS. 

4090 020626 051300 BIS C(R3),RO sINCLUDE THE NUMBER OF STOP BITS FIELD. 

pots 020630 052400 BIS C(R4)+,RO sINCLUDE THE TYPE OF PARITY FIELD. 

409, 

roe 020632 000261 SEC sINDICATE “SUCCESS” FOR EY¥-<T. 

4 

4095 020634 60$: PASS RO,R1,R2,R3,R4 ;RESTORE GPR RS, LEAVE THE FOLLOWING INTACT: 
020634 010066 000002 MOV RO,ROSLOT( SP) ;PUT RO IN STACK SLOT. 
020640 010166 000004 MOV R1,R1SLOTC SP) sPUT R1 IN STACK SLOT. 
020644 010266 000006 MOV R2,R2SLOT( SP) sPUT R2 IN STACK SLOT. 
020650 010366 000010 MOV R3,R3SLOTC SP) sPUT R3 IN STACK SLOT. 
020654 010466 000012 MOV R4,R4SLOTC SP) sPUT R4 IN STACK SLOT. 
020660 004736 JSR PC ,8(SP)+ sRETURN TO PREGOS SUBRT. 

4096 020662 000207 RTS PC s Ri THRU R4 - POINTERS, RO - NEW LPR FIELDS. 
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- GETLP2 - 


GLOBAL SUBROUTINE 


012703 
020327 


103417 
012703 


L 
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005326 


005044 
005062 
005066 
005074 
005066 
005066 
005062 


005054 


177400 





-SBTTL GLOBAL SUBROUTINE 
gee SOCEOEEEEEEEEE SOO 6666 0606660606060000 00000060 060066060000060060000000000008 
- Get Line Parameters Routine Number Two - 

This routine is used to repeatedly get combinations of line peremeter 
contents for the Single Character Mode TX/RX Test (long date pattern). 


Eech time this routine is called it 


- GETLP2 - 


ts another combination of the 


peremters in the peremter tables unt ?1 ell combinations have been 
returned et which point it returns e “failure” indication. 


Single a = as mode, short date pattern TX/RX tables: 


INPUTS: 


OUTPUTS: 


COMMENTS: 


T - Number of bits per char table (4 entries). 


SCNST - Number of stop bits bits table (2 entries). 
SCTPT - Type of parity table (3 entries). 


Each teble has a bese and end label consisti 
the table with a “B” and “E” appended re 


of the name of 
tively. 


spec 
Rl thru R3 - Pointers into SCBCT, SCNST, SCTPT tables 
Rl is clear if this is the first call of GETLP2. 


RO - Composed LPR contents, clear if failure (Done), 
38.4K baudrate is selected. 
Ri thru R3 - Table pointers (Updated). 


CALLING SEQUENCE: JSR 


This routine should be used in con 
routine to avoid destroying the GP 


PC ,GETLP2 


tion with a SWAPx 
contents. 


3# SUBORDINATE ROUTINES CALLED: None. 
i ~~ SROSOSSEEE SEEDS OE OEEE EGOS OE OEE OEE OOOO 464008060004 00000000000000400440008 


GETLP2:: SAVE 


2s: 


4$: 


Ths emma. 


JSR 
R1 
2s 
#SCBCTB,R1 
@SCNSTB,R2 
@SCTPTB,R3 
R3,@SCTPTE 
45 
@SCTPTB,R3 
CR2)+ 
-* cat 
@SCNSTB,R2 
(R1)+ 
R1,@SCBCTE 
4$ 
RO 
60$ 
#177400,RO 
(R1),RO 


(R2),RO 
(R3)+,RO 


SG Aee OF 412.399 


sSAVE CONTENTS OF GPRS RO THRU RS. 

S .PREGOS sCALL REGISTER SAVE SUBRT. 
sTEST FOR THIS BEING FIRST CALL OF GETLP2. 
sSKIP ORIGINAL SET UP IF NOT FIRST CALL. 
sINITIALIZE BITS PER CHAR TABLE POINTER. 
sINITIALIZE @ OF STOP BITS TABLE POINTER. 
sINITIALIZE TYPE OF PARITY TABLE POINTER. 


sCHECK FOR POINTER AT END OF TABLE. 

:GO GET LPR CONTENTS IF NOT AT END OF TABLE. 
sRESET POINTER TO BEGINNING OF TABLE. 

sINC THE @ OF STOP BITS TABLE POINTER BY 2. 
sCHECK FOR POINTER AT END OF TABLE. 

:GO GET LPR CONTENTS IF NOT AT END OF TABLE. 
sRESET POINTER TO BEGINNING OF TABLE. 

sINC BAUD RATES TABLE POINTER BY 2. 

sCHECK FOR POINTER AT END OF TABLE. 

sGO GET LPR CONTENTS IF NOT AT END OF TABLE. 
sPREPARE TO PASS OUT CLEAR LPR FIELDS. 
sINDICATE “FAILURE” FOR EXIT. 

sEXIT WITH “FAILURE”, WE'RE DONE. 


sSET BAUD RATE FIELDS FOR 38.4 K BAUD. 

sGET THE BITS/CHAR FIELD OF NEW LPR CONTENTS. 
sINCLUDE THE NUMBER OF STOP BITS FIELD. 
sINCLUDE THE TYPE OF PARITY FIELD. 





SEQ 0109 
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GLOBAL SUBROUTINE - GETLP2 - 


4154 020766 000261 
4155 
4156 020770 60$: 


021004 010366 000010 
021010 004736 
4157 021012 000207 





| CVAMCNAA NWVIt_M FiINfe TCT OCADT 2 MACDN WAC AA 


SEC 
PASS 


RTS 


rr 


RO,R1,R2,R3 


Ac aw... ee 


ast 





SEQ 0110 







sINDICATE “SUCCESS” FOR EXIT. 
sRESTORE GPRS R4 & RS, LEAVE FOLLOWING INTACT: 


RO,ROSLOT( SP) sPUT RO IN STACK SLOT. 
R1,R1SLOT( SP) sPUT R1 IN STACK SLOT. 
R2,R2SLOT( SP) sPUT R2 IN STACK SLOT. 
R3,R3SLOT( SP) sPUT R3 IN STACK SLOT. 


PC ,@(SP)-+ sRETURN TO PREGOS SUBRT. 
+ Ri THRU R3 - POINTERS, RO - NEW LPR FIELDS. 
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- GETTIN - 


GLOBAL SUBROUTINE 


4177 

005326 
177400 
000360 





| CVANPAA AwWVi4t_M CiINf TCT OADT 2 MACON WAC AA 





-SBTTL GLOBAL SUBROUTINE 
5 O¢ SOSO606066 600606000606 00 6000060606000 0000060600000000006000000000000000000008 
- Get Time-out Value Based on Minimum Baudrate Routine - 

This subroutine gets the necessary time-out velue to verify thet ell 
chers have been received at the completion of the TX/RX of ae data 
pettern. This uses the slowest beudrate which is specified in the 
passed in DUT LPR contents to calculate this time-out velue. 


Ri - DUT LPR contents. 


é 
:# INPUTS: 


3* 
3# OUTPUTS: 
* 


GETTIM:: 


2$: 


SAVE 


eT 


- GETTIM - 


RXTOUT - Time-out velue for waiting for lest RX cher. 
F 

3* CALLING SEQUENCE: JSR 
Ge 

3* COMMENTS: 
& 


; 
s# SUBORDINATE ROUTINES CALLED: None. 
b-- €806666606606006666606 6606 6660066006 666006000600 000600000000000000000000004 


JSR 
Ri 
#177400,R1 
R1,R2 
#360 ,R1 
Re 
R2 
R2 
R2 
R1,R2 
es 
R2,R1 
PROTBL(R1),R2 
#177400,R2 
R2,RXTOUT 
JSR 
PC 


a4f aw... «ef ea 8° 


PC ,GETTIM 


sSAVE CONTENTS OF GPRS RO THRU RS. 

RS ,PREGOS sCALL REGISTER SAVE SUBRT. 
sPUT THE BAUD RATE FIELDS IN THE LOW BYTE. 
sCLEAR STOP,PARITY,AND CHAR FIELDS. 

sCOPY BAUD RATE FIELDS. 

sSELECT RX BAUD RATE FIELD ONLY. 

sSHIFT TX BAUD RATE FIELD 

+ TO OCCUPY THE LOW FOUR BYTES. 

: 


; 

sCHECK IF SAME BAUD RATE IN EACH FIELD. 
sBRANCH IF RX BAUD RATE IS LOWER OR SAME. 
;TX BAUD RATE IS THE SLOWER OF THE TWO. 

sGET PROPORTIONAL DELAY FROM TABLE. 
sCLEAR_UPPER BYTE BECAUSE OF SIGN EXTENSION. 
sLOAD THE RX TIME-OUT VARIABLE. 


sRESTORE GPRS. 


PC ,@(SP)+ sRETURN TO PREGOS SUBRT. 
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GLOBAL SUBROUTINE 


4226 
4227 
4228 
4229 
4230 


4231 
4232 
4233 
4234 
4235 
4236 
4237 
4238 
4239 
4240 
4241 
4242 
4243 
4244 
4245 
4246 
4247 
4248 
4249 
4250 
4251 
4252 
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021072 
021072 
021076 


021102 
021104 
021112 
021114 
021120 
021124 
021126 
021132 
021134 
021140 
021144 
021150 
021154 
021160 
021164 
021166 
021172 
021176 


021200 


004537 
013701 


005002 
036237 
001424 
010177 
016205 
112504 
020562 
103402 
166205 
010562 
043704 
052704 
010477 
005262 
005201 
062702 
020227 
002742 


005326 
002234 


002366 


161062 
003344 


003144 


003204 
063344 
002226 
100000 
161024 
003504 


000002 
000020 


- INICHR - 


-SBTTL GLOBAL SUBROUTINE 
b¢¢ SHEREOEEEEEE ES EE ODES OEEEOEEEEEOEOEOEOE OE 66060606 000006000000000000000000008 


002174 


- INICHR - 


34 - Send Initial Characters Routine - 

3% This routine is used to initiate single character transmission. 

3% This routine sends the initial characters to esch active lines to 

3% cause future TX interrupts which will continue the transmission if 

3* more than one cheracter is to be sent to each active line. 

3% 

3* INPUTS: ACTLNS - Bit map of active DUT lines. 

18 BITTBL - Label of table of words each with a bit set. 

7% CSRA - Contains the address of the DUT CSR. 

3% DPENDB - Base of the date pattern end table Centry per line). 
34 DPLENS - Base of the data pattern length table. 

3% I6M - Bit mask of inactive TX/RX bits. 

3% IESTAT - States of DUT int enable bits (Other bits clear). 

3* NUMLNS - Equated to the number of lines on the DUT. 

3% TXCHRA - Contains the address of the DUT TXCHAR register. 

3% TXCNTB - Leable at base of the TX character counter table. 

3% TXPTRB - Label at base of the TX date pattern pointers table. 
3% 

:* OUTPUTS: CSR - DUT CSR IND.P"R.REG field is destroyed. 

3% TXCHAR - DUT TXCHAK nas word written to it. 

34 TXCNTx - Counters incremented for lines on which chars sent. 
;* TXPTRB - Each pointer in table points to next TX char for line. 
3* 

3* CALLING SEQUENCE: JSR PC, INICHR 

3* 

3* COMMENTS: This routine assumes that at least one character should be 

34 transmitted on each active line. 

3% Interrupts must be disabled when calling this routine. 

3* 


3# SUBORDINATE ROUTINES CALLED: None. 
5 ~~ SHEER EEEEEEEE ESSE EE OE OEE OSES OE OE EE DEES OO OEE EES OE OEE OE SOE EE EE ERED DEEDS 


INICHR:: SAVE 
MOV 


2s: BIT 


4$: MOV 


6$: INC 


Tha sm aedian. 


JSR 
IESTAT,R1 


R2 
oy AE) ACR 


R1,8CSRA 
TXFTRBCR2),R5 
CRS)+,R4 
ae SPCR RE 


DPLENB(R2),R5 
RS, TXPTRBCR2) 
IBM, R4 
#BIT15,R4 
R4,8TXCHA 
TXCNTB(R2) 

Ri 

#2 ,R2 
trates 





S@ Ane OF 42.779 


sSAVE CONTENTS OF GPRS RO THRU RS. 

RS ,PREGOS sCALL REGISTER SAVE SUBRT. 
sGET STATE OF TX.IE, RX.IE FOR USE IN SETTING 
;__UP THE IND.ADR.REG FIELD OF THE DUT CSR. 
sSET LINE NUMBER OFFSET TO LINE 0. 

S__;TEST THE ACTIVE LINES BIT FOR THIS LINE. 
sDON'T TX ON THIS LINE IF IT IS NOT ACTIVE. 
sSET UP THE IND.ADR.REG FIELD OF THE CSR. 
sGET THE TX DATA PATTERN POINTER FOR THIS LINE. 
sGET THE CHAR TO TX ON THIS LINE, INC POINTER. 
sCOMPARE POINTER WITH DATA PATTERN END ADR. 
sSKIP POINTER WRAPAROUND IF NOT AT PATTERN END. 
sWRAP_TX POINTER AROUND TO BEGINNING OF PAT‘N. 
sUPDATE THE TX POINTER STORAGE TABLE FOR LINE. 
sCLEAR INACTIVE BITS OF TX CHARACTER WORD. 

sSET THE TX.DATA.VALID BIT IN THE WORD. 

sTX THE FIRST CHARACTER FOR THIS LINE. 
sINCREMENT TX CHARACTER COUNTER FOR THIS LINE. 
sINCREMENT WORD FOR IND.ADR.REG FIELD SET UP. 
sSET LINE NUMBER OFFSET TO NEXT LINE. 

sCOMPARE LINE OFFSET WITH TWICE THE @ OF LINES. 
sLOOP TO SEND CHAR TO ANOTHER LINE IF NOT DONE. 


sRESTORE GPRS. 


Roane BA @ 





SEQ 0112 
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GLOBAL SUBROUTINE - INICHR - 


021200 004736 JSR PC ,a(SP)+ 
4253 021202 000207 RTS PC 


= 








| PUARMCAA Nutt _M Cimer TCT OA40NT 2 MAFAA WAL AA Ti. 8 a i ao ce 2 a poe 


sRETURN TO PREGOS SUBRT. 


SEQ 0113 


rr 
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SEQ 0114 
GLOBAL SUBROUTINE - INIOMA - 
4255 -SBTTL GLOBAL SUBROUTINE - INIDOMA - 
4256 5+ SHOESO96O 060600066006 00440004006 0006 0006 060008 00000000000000000000000000008 
4257 34 - Initiate DMA Transmissions Routine - 
4258 3% This routine is used to initiate DMA mode transmission. It sends 
4259 ;* the initial OMA buffer on each active line to cause future TX 
4260 3% interrupts which will continue the transmission if more than one 
4261 3* buffer is to be sent. 
4262 ;* 
4263 3# INPUTS: ACTLNS - Active lines bit map. 
4264 3% BITTBL - Label of table of words each with a bit set. 
4265 3% CSRA - Contains the address of the DUT CSR. 
4266 3% DPENDB - Base of the date pattern end table Centry per line). 
4267 34 DPLENB - Base of the deta pattern length table. 
4268 ;* IESTAT - Preserved states of the DUT interrupt enable bits. 
4269 3% NUMLNS - Equated to number of lines on a DUT. 
4270 3% TXCNTB - Lable at base of the TX character counter table. 
a271 3% TXPTRB - Label at base of the TX date pattern pointers table. 
2 3% 
4273 3* OUTPUTS: CSR - DUT CSR IND.ADR.REG field is destroyed. 
4274 3% RRC ADD COMMENTS <€ 6666666666 6666000000 COCCRRE 
4275 34 TXCNTx - Counters incremented for lines on which chars sent. 
py Sa 3* TXINTF - TX int flegs (bit set if DMA.HO found set on line). 
42 3* 
prt 3* CALLING SEQUENCE: JSR PC, INIDMA 
42 3% 
4280 3;# COMMENTS: This routine assumes that at least one date pattern should be 
4281 3* transmitted on each active line. 
ra | ;* Interrupts must be disabled when calling this routine. 
2 i* 
4284 3# SUBORDINATE ROUTINES CALLED: DODMA. 
4285 b-- SHROSEEREEEE ESO 06 44400606 0660000008 6600000400600 060000000000000000000000008 
4286 021204 INIDMA:: SAVE sSAVE CONTENTS OF GPRS RO THRU RS. 
021204 004537 005326 JSR RS ,PREGOS ;CALL REGISTER SAVE SUBRT. 
— 021210 013705 002174 MOV ACTLNS,RS sGET THE ACTIVE LINES BIT MAP. 
4 3+ 
rr ; Set up loop which handles one line per iteration. 
42 3° 
aoe 021214 905001 CLR R1 s;CLEAR THE LINE NUMBER COUNTER. 
4 10 
4293 ; Get a bit map of the selected line. 
ores ; If the line is inactive skip to select the next Line. 
4 s° 
4296 921216 010104 2s: MOV R1,R4 sCALCULATE AN OFFSET TO THE PROPER LINE 
4297 021220 006304 ASL R4 ; ENTRY IN A WORD TABLE (LINE @ TIMES 2). 
4298 021222 016402 002366 MOV BITTBL(R4),R2 ;GET A BIT MAP FOR THIS LINE. 
4299 021226 030205 BIT 2,R5 sTEST THE ACTIVE LINES BIT FOR THIS LINE. 
rt ag 021230 001414 BEQ 10$ sDON‘T TX ON THIS LINE IF IT IS NOT ACTIVE. 
4301 z+ 
4302 ; Line is active. 
4303 ; Initiate DMA on this line. 
rte: ; Get the date pattern length for this line. 
g- 
4306 021232 016403 003204 MOV OPLENB(R4),R3 sGET DATA PATTERN LENGTH FOR THIS LINE. 
pt nd 021236 016402 003344 MOV TXPTRB(R4) ,R2 sPREPARE TO PASS DATA PATTERN ADR TO DODMA RTN. 
3* 
4309 ; Write DMA parameters to the DUT. 
4310 3 
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GLOBAL SUBROUTINE - INIDMA - 













SEQ 0115 


4311 021242 004737 017610 JSR PC ,DODMA 
ren | 021246 103403 BCS 63 sSKIP ERROR IF DODMA WAS SUCCESSFUL. 
1 :¢ 
rene + Set the proper bit of the TX interrupt flags to indicate the line error. 
g@ 
4316 021250 050537 002252 BIS RS, TXINTF sINDICATE THE ERROR. 
rs oH 021254 000402 BR 10$ sSKIP UPDATING POINTERS AND COUNTERS. 
i? 
suas ; Update the TX character count for this line. 
g= 
ques 021256 060364 003504 6$: ADD R3,TXCNTBCR4) ;ADD THE DATA PATTERN LENGTH TO TX CHAR COUNT. 
i¢ 
sons s Increment line counter,goto next line if not done. 
ge 
4325 021262 005201 10$: INC Ri sINCREMENT THE LINE COUNTER. 
4326 021264 020127 000010 CMP R1, @NUMLNS sCOMPARE THE LINE COUNTER WITH NUMBER OF LINES. 
r+ 44 021270 002752 BLT 2s sLOOP TO SEND CHAR TO ANOTHER LINE IF NOT DONE. 
4329 021272 60$: PASS sRESTORE GPRS. 
021272 004736 JSR PC ,@(SP)+ sRETURN TO PREGOS SUBRT. 
4330 021274 000207 RTS PC 


= 


| CVDHCDO DHV11-M FUNC TST PART 3% MACRO VOS 00 Thiwedeau 96_Ban_A& 14.27 Deere 0% 





, 





- MODSUP - 
.SBTTL GLOBAL SUBROUTINE 
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4364 bF% SHSSSSSSSSSSSSSESSESESEDODESSEESEEEERESESERESEDESEESESEEOEEDESEDEEEEEEEEEDE 
- MODEM LOOPBACK TX/RX SET-UP ROUTINE - 


This routine is used to initielise both the DUT end the 
trensaission/reception control peremeters to the correct 
stete, prior to e Modem Loopback test dete pattern TX/RX. 


Ri - TX, RX LPR contents. 

R2 - Stert eddrese of date pattern to trensait. 
R3 - Length of dete pattern. 
ACTLNS - Conteines e bit 

CBB - Lebel et bese of TX/RX control block. 


The contents of the TX/RX control block (CCB) ere destroyed. 


The indirect eddress field of the DUT CSR may be destroyed. 
The DUT’s LPR’s and LNC’s may be modified. 


CHRTOT, RXDONF, TXDONF end TXINTF ere cleered. 


4365 34 

4366 3% 

4367 3% 

4368 34 

4369 :3 

4370 3% 

4371 s@ INPUTS 

4372 38 

4373 3% 

4374 18 

4375 3% 

4376 3 

4377 3@ OUTPUTS 

4378 34 

4379 3¢ 

4380 34 The following 
4381 36 CHCNT, CHRTOT, 
4382 3h TXPTR, TXRXL. 
4383 pm 

4384 34 

4385 3@ CALLING SEQUENCE: JSR 
4386 3% 


4387 3@ COMMENTS: DUT is set up with DSR and DIR set. One date pattern is 
sent and received from each line. 


4389 34 
4390 s@ SUBORDINATE ROUTINES CALLED: CONMAP,RXENBL, TXRINI. 
4391 b> > S60806000006600066 000000 000000000000606000000060000000000000000000000000000 
4392 
4393 021324 MODSUP:: SAVE sSAVE CONTENTS OF THE GPR’S RO THRU RS. 
021324 004537 005326 JSR RS ,PREGOS sCALL REGISTER SAVE SUBRT. 
4394 021330 005037 002500 CLR CHRTOT sCLEAR TOTAL RECEIVED CHAR COUNTER. 
4395 021334 005037 002252 CLR TXINTF sCLEAR FLAGS USED TO LOG DMA H.OVER ERRORS. 
4396 021340 005037 002504 CLR TXDONF sCLEAR THE TX DONE FLAGS. 
pet 021344 005037 002506 CLR RXDONF sCLEAR THE RX DONE FLAGS. 
¢ 
cree s Set up the Trenemission/Reception Control block to the desired stete. 
g2 
4401 021350 010137 003124 MOV R1,CBB sSET CONTENTS OF LPR PARAMS IN TX/RX C.BLK. 
4402 021354 012701 003124 MOV @CBB ,R1 sGET BASE ADORESS OF CONTROL BLOCK. 
4403 021360 005201 INC Ri sINCREMENT ADDRESS FOR NEXT WORD 
4404 021362 005201 INC R1 sINITIALISE THE FOLLOWING IN THE CNTRL.BLK: 
4405 021364 012721 011004 MOV #11004 ,CR1)+ s LNCTRL: RTS, OTR, ENABLE RECEIVERS. 
4406 021370 010221 MOV R2,CR1L)> s START ADDRESS OF DATA PATTERN. 
4407 021372 010321 MOV R3,CR1I)+ 3s DATA PATTERN LENGTH. 
4408 021374 012721 000001 MOV #1,(R1)¢ 3s NUMBER OF DATA PATTERNS TO TRANSMIT. 
4409 021400 013721 002174 MOV ACTLNS ,CR1)+ s BIT MAP OF LINES TO INITIALISE. 
4410 021404 112721 000003 MOVE #@3,(R1)+ sSET LOOPBACK MODE TO H325. 
4411 021410 005201 INC R1 sINCREMENT ADORESS FOR THE NEXT WORD. 
sak 021412 012711 000002 MOV #2,(R1) sSET AMOUNT OF OFFSET EACH TX STARTS AT TO 2. 
3° ~ > 
Gals s Initialise the DUT and the essociated pointers end counters, to the stete 
ror s dictated by the contents of the TX/RX control block. 
t- 
root 021416 004737 026114 JSR PC, TXRINI sINITIALISE DUT. 
3¢ 






- MODSUP - 









of ell currently active lines. 









interes end counters ere initielised; 
ND ,OPLEN,EXCNT ,RXCNT .RXPTR,TXCNT, 











PC ,MOOSUP 
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SEQ 0118 
GLOBAL SUBROUTINE - MODSUP - 

pos 4 s Initialise pointers end counters for inective lines to zero. 

t- 

4421 021422 012701 000377 MOV @MAPLNS ,R1 sGET THE LINE BIT MAP FOR ALL LINES. 

4422 021426 013702 002174 MOV ACTLNS ,R2 sGET THE ACTIVE LINE BIT MAP. 

4423 021432 005101 COM R1 ’ 

4424 021434 005102 COM R2 3 

4425 021436 040102 BIC R1,R2 sGENERATE AN IN-ACTIVE LINE BIT MAP. 

4426 021440 010237 003136 MOV R2,CBMAPA sMOVE BIT MAP TO THE CONTROL BLOCK. 

4427 021444 005037 003126 CLR CBLNCA sCLEAR THE LNCTRL SET UP PARAMETERS. 

4428 021450 005037 003134 CLR CBOPNA sCLEAR THE REPEAT TX COUNT IN CNTRL BLCK. 

po 4 021454 004737 026114 JSR PC, TXRINI sSET UP PARAMETERS FOR INACTIVE LINES. 

4431 021460 60$: PASS sRESTORE GPR‘S. 

021460 004736 JSR PC OC SP)> sRETURN TO PREGOS SUBRT. 
4432 021462 000207 RTS PC 
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SEQ 0119 
GLOBAL SUBROUTINE - MSLGET - 
4414 -SBTTL GLOBAL SUBROUTINE - MSLGET - 
4435 FPOOOEEOOE SS OSES EE EEEE OE EEEEEE EEE OOOO 400006 060000000000600600006666000000000088 
4436 3¢ - Milli Seconds Loop which returns reed word end remaining time - 
4437 2A This subroutine is e generel purpose test loop subroutine. It is used 
4438 14 to verify thet e certain ection occurs before e time-out period. The 
4439 :* calling routine pesses in which bits should be set end cleered for the 
4440 3¢ desired condition end the time-out value in milli-seconds. 
4441 ;@ This routine checks for the desired condition upon entrance into the 
4442 34 routine end then once each milli-second there efter. 
4443 3@ Upon return, the lest word which wes reed to check for the condition 
roe 3¢ is returned by this subroutine. 
G44 3% 
4446 3@ INPUTS: Ril - Time-out velue in milli-seconds (up to 64K ms). 
4447 3¢ R2 - Bit map of bits to test (1 indicates to test the bit). 
4448 36 R3 - Desired states of the indicated fields in R2. 
444g 36 R4 - Address of the word to test. 
sone 3¢ MSLCNT - Milli second softwere loop count. 
34 
4452 3@ OUTPUTS: RO - The lest word which was read to check for the condition. 
4453 34 Ril - Remaining number of ms in time-out time. 
on 34 CARRY - Success flag (set if condition is met before time-out). 
34% 
cone 3@ CALLING SEQUENCE: JSR PC ,MSLGET 
a4 ;* 
4458 3@ COMMENTS: This routine works with or without @ hardware clock, but the 
4459 ;¢ celibration is only gquerenteed when a line clock is available 
4460 34 on the systen. 
4461 34 This routine can be used es a delay routine, by specifying the 
4462 34 desired delay as the time-out and specifying a condition to 
4463 i¢ look for which will not be met during the delay. 
4464 34 If a time-out velue of 0 is specified, this routine checks for 
4465 ;* the desired condition before returning. It indicates success 
4466 34 if the condition is met, failure otherwise. 
4467 34 
4468 16 
4469 3 SUBORDINATE ROUTINES CALLED: None. 
4470 § 9666606066606 6666866606660606660600664060006660608 6606400000 00004680060000660068484 
4471 
4472 021464 MSL'ET:: SAVE sSAVE CONTENTS OF GPRS RO THRU RS. 
- 021464 004537 005326 JSR RS ,PREGOS ;CALL REGISTER SAVE SUBRT. 
44 s¢ 
4474 + Set up mask for removing unused bits in the test word, and clear unused 
4475 s bits in the desired state word to allow direct compar ison. 
4476 io 
4477 021470 005102 COM R2 sGET MASK OF UNUSED BITS. 
— 021472 040203 BIC R2,R3 sMASK OUT UNUSED BITS IN DESIRED STATE WORD. 
4479 s¢ 
4480 +s Handle the test and exit if we have a 0 time-out velue. 
4481 s° 
4482 021474 005701 TST Ri sTEST THE TIME-OUT VALUE FOR ZERO. 
4483 021476 001C11 BNE 23 sIF NON-ZERO TIME-OUT, GO LOOP AND TEST. 
4484 021500 011400 MOV (R4),RO sGET THE WORD TO TEST BEFORE EXITING. 
4485 021502 010037 021576 MOV RO,628 sSAVE VALUE SO WE CAN RETURN IT. 
4486 021506 040200 BIC R2,RO sMASK OUT UNTESTED BITS OF WORD. 
4487 021510 020003 CMP RO,RS sCOMPARE AGAINST DESIRED STATE WORD. 
4488 021512 000261 SEC sINDICATE SUCCESS IN CASE WORDS ARE EQUAL. 
4489 021514 001420 BEQ 6$ sEXIT WITH SUCCESS IF WORDS ARE EQUAL. 


| CVDHCDO DHV11-M FUNC TST PART 3 MACRO VOS.00 Thursday 25-Apr-85 16:37 Page 84-1 





























CVDHCDO DHV11-M FUNC TST PART 3 MACRO VOS.00 Thursday 25-Apr-85 16:37 Page 84-1 


SEQ 0120 
GLOBAL SUBROUTINE - MSLGET - 
4490 021516 000241 cLc sINDICATE FAILURE (TIME-OUT). 
pres 021520 000416 BR 63 sEXIT WITH FAILURE, WORDS AREN’T EQUAL. 
s¢ 
sank s Non-zero time-out velue. Loop, waiting for condition or time-out. 
hs 
4495 021522 013705 002314 2s: MOV MSLCNT RS sLOAD MS LOOP COUNT. 
4496 021526 011400 43: MOV (R4),RO sGET THE WORD TO TEST. 
4497 021530 010037 021576 MOV RO,628 sSAVE WORD IN CASE THIS IS THE LAST. 
4498 021534 040200 BIC R2,RO sMASK OUT UNTESTED BITS OF WORD. 
4499 021536 020003 CMP RO,RS sCOMPARE AGAINST DESIRED STATE WORD. 
4500 021540 000261 SEC sSET CARRY IN CASE OF SUCCESS. 
4501 021542 001405 BEQ 6$ sEXIT WITH SUCCESS IF WORDS ARE EQUAL. 
4502 021544 005305 DEC RS sCOUNT DOWN THE INSIDE MS LOOP COUNT. 
4503 021546 001367 BNE 4s ;LOOP IF MS NOT UP. 
4504 021550 005301 DEC Ri sDECREMENT THE MS TIME COUNT. 
4505 021552 001363 BNE 2s sIF TIME NOT UP, LOOP TO COUNT ANOTHER MS. 
pie 021554 000241 cLC sCLEAR CARRY, WE TIMED-OUT. 
3° 
4508 ; Have either found condition, or timed-out (possibly from 0 time-out value). 
rs 4 ; Restore the lest contents read from the test word. Exit routine. 
451 Be 
4511 021556 013700 021576 6%: MOV 62$,R0 sPASS OUT THE LAST READ WORD. 
4512 021562 60$: PASS RO,R1 sRESTORE GPRS, EXCEPT THE FOLi.OWING: 
021562 010066 000002 MOV RO,ROSLOT( SP ) sPUT RO IN STACK SLOT. 
021566 010166 000004 MOV R1,R1SLOTC(SP) sPUT R1 IN STACK SLOT. 
021572 004736 JSR PC ,@CSP)-+ sRETURN TO PREGOS SUBRT. 
4513 sRO - LAST READ WORD CHECKED FOR CONDITION. 
4514 sR1 - REMAINING TIME (0 IF TIME-OUT OCCURED). 
ona 021574 000207 RTS PC sCARRY - SET IF SUCCESS, CLEAR IF TIME-OUT. 
3? 
rs 84 ; Locel storage. 
4 1 3° 
4519 021576 000000 62$: -WORD O sSTORAGE FOR THE LAST READ WORD. 
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SEQ 0121 
GLOBAL SUBROUTINE - MSLOOP - 
4521 -SBTTL GLOBAL SUBROUTINE - MSLOOP - 
4522 FPROEEOSEE EEE ESEEEEEEEEED 44606600066 6000 06060006 00000000000000000000000000008 
4523 ;¢ - Test Loop subroutine - 
4524 72 This subroutine is @ general purpose test loop subroutine. It is used 
4525 3* to verify that a certain action occurs before e time-out period. The 
4526 ;* celling routine pesses in which bits should be set and cleared for the 
4527 34 desired condition and the time-out value in milli-seconds. 
4528 3* This routine checks for the desired condition upon entrance into the 
po 2 3* routine and then once each milli-second thereafter. 
3*@ 
4531 3;@ INPUTS: Ril - Time-out velue in milli-seconds (up to 64K ms). 
4532 34 R2 - Bit map of bits to test (1 indicates to test the bit). 
4533 34 R3 - Desired states of the indicated fields in R2. 
4534 34 R4 - Address of the word to test. 
pea 34 MSLCNT - Milli second software loop count. 
4 3* 
ps = 14 3 OUTPUTS: CARRY - Success flag (set if condition is met before time-out). 
34 
aaah 3# CALLING SEQUENCE: JSR PC ,MSLOOP 
4540 3% 
4541 3 COMMENTS: This routine works with or without ea hardware clock, but the 
4540 34 calibration is only guarenteed when a line clock is available 
4343 ;* on the system. 
4544 34 This routine can be used as a delay routine, by specifying the 
4545 34 desired delay as the time-out and specifying a condition to 
4546 3* look for which will not be met during the delay. 
4547 34 If a time-out value of 0 is specified, this routine checks for 
4548 3* the desired condition before returning. It indicates success 
— 34 if the condition is met, failure otherwise. 
4 3* 
4551 3* SUBORDINATE ROUTINES CALLED: MSLGET. 
4552 F PREECE EEE EEE EE EEOEEEEE E446 44 OEE EEE ODODE EEEKEEEEOEOEEEEDEEREDERER EERE EES 
4553 
4554 021600 MSLOOP:: SAVE sSAVE CONTENTS OF GPRS RO THRU RS. 
ome 021600 004537 005326 JSR RS ,PREGOS sCALL REGISTER SAVE SUBRT. 
4556 3¢ 
4557 s Calling the MSLGET routine from the MSLOOP routine isolates the caller of 
= s MSLOOP from the returned test word and remaining time-out values. 
4559 g- 
ome 021604 004737 021464 JSR PC ,MSLGET sCALL THE MULTI-PURPOSE MS LOOP AND SEARCH RIN. 
4561 
4562 021610 60$: PASS sRESTORE GPRS, 
021610 004736 JSR PC,@(SP)-+ sRETURN TO PREGOS SUBRT. 
4563 021612 000207 RTS PC sCARRY - SET IF SUCCESS, CLEAR IF TIME-OUT. 
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SEQ 0122 
GLOBAL SUBROUTINE - MSSRPT - 
4565 -SBTTL GLOBAL SUBROUTINE - MSSRPT - 
4566 tee SRCCOESE SESE ESOS EE O44060 000666606 66000006 06 06000000006000660460006064000000006 
4567 3@ - Modem Stetus Signal Report Routine - 
4568 34 This subroutine is used to report the states of the modem status 
one 3¢ signels for all active lines. 
34 
4571 3@ INPUTS: ACTLNS - Bit map of active lines. 
4572 34 CSRA - Contains eddress of the DUT CSR. 
4573 ie EF9101 - Label at format statement for blank line. 
4574 34 IESTAT - Contains stetes of the DUT Interrupt Enable bits. 
4575 i* STATA - Contains address of the DUT STAT register. 
ps La 34 NUMLNS - Equated to the number of lines on the device. 
3*# 
4578 3 OUTPUTS: DUT CSR IND.ADR.REG Field - Contents destroyed. 
po a 34 Report messages ere printed on the operator's console. 
;* 
4581 3# CALLING SEQUENCE: JSR PC ,MSSRPT 
4582 3* 
4583 3 COMMENTS: 
4584 3* 
4585 3# SUBORDINATE ROUTINES CALLED: None. 
4586 3-- SEGRE EE 6664646 66006606606660606600060060606066064666060606060600000000006000008 
4587 
4588 021614 MSSRPT:: SAVE sSAVE CONTENTS OF GPRS RO THRU RS. 
euee 021614 004537 005326 JSR RS ,PREGOS ;CALL REGISTER SAVE SUBRT. 
3¢ 
4590 ; Print the basic modem status message. 
yeaa F “MODEM STATUS SIGNAL REPORT: ” 
4 i- 
4593 021620 PRINTF @MSFMT1L 
021620 012746 007630 MOV @MSFMT1,-CSP) 
021624 012746 000001 MOV #1,-(SP) 
021630 010600 MOV SP ,RO 
021632 104417 TRAP CSPNTF 
ance 021634 062706 000004 ADD 04,SP 
4595 021640 005001 CLR R1 sSTART WITH LINE 0. 
4596 021642 012702 000001 MOV #1,R2 
4597 021646 013703 002202 MOV CSRA,R3 sGET THE CSR ADDRESS. 
4598 021652 013704 002234 MOV IESTAT,R4 sGET THE STATES OF THE INTERRUPT ENABLE BITS. 
4599 021656 013705 002174 MOV ACTLNS RS sGET THE ACTIVE LINES BIT MAP. 
4601 021662 030205 2s: BIT R2,R5 sTEST LINE BIT IN ACTIVE LINES BIT MAP. 
— 021664 001442 BEQ 4s sLINE ACTIVE? NO, SKIP REPORT FOR LINE. 
460 
4604 021666 010400 MOV R4,RO sSET UP DUT CSR IND.ADR.REG FIELD 
4605 021670 050100 BIS R1,RO ; LEAVING THE INTERRUPT ENABLE 
4606 021672 010013 MOV RO,CR3) + BITS IN THE SPECIFIED STATE. 
4607 021674 017700 160310 MOV @STATA,RO sREAD THE DUT STATUS REG FOR THIS LINE. 
4608 021700 ; SAVE sSAVE CONTENTS OF GPRS RO THRU RS. 
021700 004537 005326 JSR RS ,PREGOS s;CALL REGISTER SAVE SUBRT. 
4609 021704 005002 CLR R2 sCLEAR THE SIGNAL STATUS INDICATORS. 
4610 021706 005003 CLR R3 
4611 021710 005004 CLR R4 
4612 021712 005005 CLR RS 
4613 021714 006300 ASL RO sSHIFT DSR INTO CARRY, 
4614 021716 006102 ROL R2 ; THEN ROTATE INTO INDICATOR. 
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4615 021720 
4616 021722 


4636 022024 
4637 022026 


= 





| CVDHCDO DHV11-M FUNC TST 


GLOBAL SUBROUTINE 


007670 
000006 


- MSSRPT - 


SEQ 0123 


sSHIFT BLANK SLOT INTO CARRY, 
+s SHIFT RI INTO CARRY, 
s_ THEN ROTATE INTO INDICATOR. 
sSHIFT DCD INTO CARRY, 
+ THEN ROTATE INTO INDICATOR. 
sSHIFT CTS INTO CARRY, 
s THEN ROTATE INTO INDICATOR. 


3¢ 
; Print the stetus for this line. 
DSR=n, RI=n, OCD=n, CTS=n” 


PRINTF @MSFMT2,R1,R2,R3,R4,R5 


4$: 


“LINE @n: 


JSR 
R2 
Ri 
R1, @NUMLNS 
2s 
@€F9101 

JSR 
PC 





sRESTORE ALL THE GPRS. 
PC ,@(SP)+ sRETURN TO PREGOS SUBRT. 


sSHIFT LINE BIT MAP TO NEXT LINE. 

sINCREMENT THE LINE COUNTER. 

sCMP LINE COUNTER WITH @ OF LINES ON DEVICE. 
sALL LINES DONE? NO, LOOP TO DO NEXT LINE. 


sPRINT A BLANK LINE. 
MOV €F9101, -(SP) 
MOV #1,-(CSF) 


MOV SP ,RO 
TRAP CSPNTF 
AOD 04 ,SP 
sRESTORE GPRS. 
PC ,8(SP)+ sRETURN TO PREGOS SUBRT. 
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GLOBAL SUBROUTINE - MULI6U - 
4639 -SBTTL GLOBAL SUBROUTINE - MUL16U - 
4640 bO¢ SOORSOSEEE E646 08 4400000000 000000000006 0000 006000000000000000000000000000008 
4641 34 - 16 Bit Unsigned Multiply Routine - 
4642 34 This routine multiplies 2 16 bit unsigned numbers and returns e 16 bit 
4643 i* unsigned result. The multiplication is performed by iterative 
4644 3* addition of one number to e sum while decrementing the other number 
4645 34 to zero. If overflow occurrs (177777 to 0) the product is invalid. 
4646 as 
4647 3@ INPUTS: Ril - Multiplicand (16 bit unsigned). 
poo ;# R2 - Multiplier (16 bit unsigned). 
3* 
4650 3@ OUTPUTS: Ri - Product (16 bit unsigned), -1 if overflow. 
pee 34 CARRY - Set if success (no overflow), clear otherwise. 
3% 
aane 3# CALLING SEQUENCE: JSR PC ,MUL16U 
;* 
4655 3* COMMENTS: Note: For minimum execution time R2 should contain the 
aunt i* smaller of the 2 arguments. 
fm 
4658 s# SUBORDINATE ROUTINES CALLED: None. 
4659 b-- 6686066660606 06 0066066006 00606000600600000056606000000000000000000000000008 
4660 
4661 022030 MUL16U:: SAVE sSAVE CONTENTS OF GPRS RO THRU RS. 
022030 004537 005326 JSR RS ,PREGOS ;CALL REGISTER SAVE SUBRT. 
4662 022034 005003 CLR R3 s;CLEAR THE PRODUCT. 
4663 022036 005702 TST R2 sCHECK THE MULTIPLIER. 
4664 022040 001003 BNE 2s sGO TO DO MULTIPLICATION IF NOT ZERO. 
4665 022042 005001 CLR R1 sRETURN A PRODUCT OF ZERO. 
4666 022044 000261 SEC sINDICATE SUCCESS. 
rood 022046 000412 BR 60$ sEXIT THE ROUTINE. 
4669 022050 060103 2s: ADD R1,R3 ADD THE MULTIPLICAND TO THE PRODUCT. 
4670 022052 103405 BCS 50$ sEXIT WITH OVERFLOW IF ONE OCCURRED. 
4671 022054 005302 DEC R2 sDECREMENT THE MULTIPLIES. 
4672 022056 001374 BNE 2s sLOOP IF MULTIPLIER NOT ZERO. 
4673 022060 010301 MOV R3,R1 sPREPARE TO PASS OUT THE PRODUCT. 
4674 022062 000261 SEC sINDICATE SUCCESS. 
roth 022064 000403 BR 60$ sEXIT WITH SUCCESS. 
4677 022066 012701 177777 50$: MOV #-1,R1 sFORCE PRODUCT TO MAX VALUE, WE OVERLFOWED. 
pean 022072 000241 cLc s INDICATE FAILURE. 
4680 022074 60$: PASS Ri sRESTORE GPRS, EXCEPT THE FOLLOWING: 
022074 010166 000004 MOV R1,RiISLOTC SP) sPUT R1 IN STACK SLOT. 
022100 004736 JSR PC ,8(SP)+ sRETURN TO PREGOS SUBRT. 
4681 ; Ri - PRODUCT (16 BIT UNSIGNED), 
4682 022102 000207 RTS PC s CARRY - SET IF SUCCESS (NO OVERFLOW). 
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SEQ 0125 
GLOBAL SUBROUTINE - NEWCHR - 
4684 -SBTTL GLOBAL SUBROUTINE - NEWCHR - 
4685 5 ¢+ SOOOSSOOOEOE 460606 0666 00000604606 000008 06 0600000000 0000000000000000000000008 
4686 34 - New Cherecter Handling Routine - 
4687 3% This subroutine handles ea new character which has been read from 
4688 3% the DUT. The counters and pointers which are involved with the 
4689 3% cheracter are updated. The character is checked for errors and 
aaee 34 any errors which are found are reported. 
4691 3* : 
4692 3;* INPUTS: R2 - The read character including error —— and line number. 
4693 ts R3 - Mask of the inactives bits in e TX or RX char byte. 
4694 ;* ACTLNS - Bit map of active DUT lines. 
4695 3% DPRSQB - Lebel at date pattern resync queues table base. 
4696 3% TXRXLB - Base of TX/RX line number association table. 
4697 i* BITTBL - Table of words with bits set for use in forming maps. 
4698 34 ERSMRF - “Print error summery for line” flags. 
4699 pe ERRTBL - Error information CERRNBR, ERRMSG, ERRTYP). 
4700 ;* ERCNTB - Base of the RX character error counters table. 
4701 3% NDERPT - Contains number of char errors to report on a line. 
4702 ;* INPUTS TO SUBROUTINES: CHCNTB, DPEND8, OPLEN, DPRSQE, EXCNTB, RXCNTB, 
4703 pe RXPTRB, ERRNBR, ERMSG, ERRTYP. 
4704 3* 
4705 3* OUTPUTS: ERRBLK - Contents destroyed. 
4706 ;* Following variables updated for line on which char was received: 
4707 ;* DPRSQ - Date pattern resync que of received characters. 
4708 34 ERCNT - Count of the number of character errors on line. 
4709 3% ERSMRF - Updated “print error summary for line” flags. 
4710 3* EXCNT - Count of the number of extra chars received on line. 
4711 3* RXCNT - Count of the number of characters received on line. 
are ;* RXPTR - Updated to point to the next expected char on line. 
4 3* 
ziee ;* CALLING SEQUENCE: JSR PC ,NEWCHR 
471 3* 
4716 3* COMMENTS: This routine can report errors with numbers Initial ERRNBR 
4717 3* end Initial ERRNBR + 1. ERRNBR is restored to its initial 
rik ;* ~ value before this routine returns. 
471 3% 
4720 s# SUBROUTINES CALLED: CKCHR,CKINAC, TXROFF, TXRON. 
4721 s* INDIRECT SUBROUTINES: CHKEXT,CHKLOS,ER9002,ER9003, UPDOCHR. 
4722 j-- SHRREOEEEEEE ESOS 6666060606 060600000006 06 0000000006 0600 06040046 000000000000008 
4723 
4724 022104 NEWCHR:: SAVE sSAVE CONTENTS OF GPRS RO THRU RS. 

022104 004537 005326 JSR 5,PREGOS ;CALL REGISTER SAVE SUBRT. 
4725 022110 010305 MOV R3,R5 sGET THE BIT MAP OF INACTIVE DATA BYTE BITS. 
4726 022112 052705 177400 BIS #177400,R5 sALL UPPER BITS OF EXPECTED DATA ARE INACTIVE. 
yon 3 022116 005037 022362 CLR 70$ ;CLEAR THE “ERROR FOUND” FLAG. 

4728 ied 

4729 ; If the new character is valid on an inactive line, go report error. 
rh ; Routine used also extracts line number from the new character. 
4731 t= 

4732 022122 004737 017046 JSR PC ,CKINAC sCHECK FOR CHAR ON INACTIVE LINE. 

rd 022126 103043 BCC 4$ 3GO REPORT ERROR IF ON INACTIVE LINE. 
4 ;* 

hh ; Push the new character on the resync que for this line. 

4736 ;- 

4737 022130 010304 MOV R3,R4 sCALCULATE BASE ADDRESS OF THE 

4738 022132 006304 ASL RS ; DATA PATTERN RESYNCH QUEUE 

4739 022134 006304 ASL R4 ; (CQUEVE IS 4 WORDS LONG) FOR 
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4740 022136 
4741 022142 
4742 022144 
4743 022150 
4744 022154 
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062704 
010401 
016121 
016121 
010211 


011402 
100076 


032702 
001420 


005337 
016300 
036037 
001010 
012737 
004737 


104460 
004737 


004737 
103424 


005337 
016300 
036037 
001014 
012737 
005237 
004737 


104460 
004737 
005337 


005737 
001421 
005263 
001002 
005363 


004644 


000002 
000002 


070000 


022362 
005236 
002366 
014670 
026370 


026424 


016460 


022362 
005236 
002366 
014522 


005320 
026370 


026424 
005320 


022362 
003304 
003304 


- NEWCHR - 


002502 
005324 


002502 
005324 


3¢ 


2(R1),(R1)+ 
2(R1),(CR1)+ 
R2,(R1) 
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GLOBAL SUBROUTINE 


SEQ 0126 


s THIS LINE. 

sGET THE BASE OF THE QUEUE. 

sMOVE FROM CHR1 SLOT TO CHRO SLOT. 
sMOVE FROM CHR2 SLOT TO CHR1 SLOT. 
sPUT NEW CHAR INTO CHR2 SLOT. 


; Check the DATA.VALID for the character at the botton of the queue. 


s If DATA.VALID is clear, 


ge 
MOV 
BPL 


(R4),R2 
60$ 


exit the routine--nothing to analyze. 


sGET CHRO VALUE, SET FLAGS. 
sEXIT ROUTINE IF DATA.VALID IS CLEAR. 


3¢ 
; Test for any of the error bits set in CHRO. 


ge 
BIT 
BEQ 


3*¢ 


; We have at least one error fle 
; Report data error flag error i 


JSR 


#70000 ,R2 
2$ 


70% 


TXRXLBCR3) ,RO 
en 


2 
ea 


PC , TXROF 


PC, TXRON 


sTEST FOR ANY CHRO ERROR BITS SET. 
sSKIP THIS ERROR IF NO ERROR BITS SET. 


set on the received cher. 
not in summary 


sSET THE “ERROR FOUND” FLAG. 
sGET THE TX LINE OFFSET FOR THIS RX LINE. 


F__;CHECK THE ERROR SUMMARY FLAG FOR TX LINE. 


sIF ERROR SUMMARY FLAG SET, SKIP NEXT REPORT. 
sSELECT THE ER9003 ERROR REPORT ROUTINE. 
sTURN OFF TX AND RX DURING ERROR REPORTING. 
; >>>>> ERROR <<<<<, 
CSERROR 


TRAP 
sTURN TX AND RX BACK ON. 


i¢ 
; Check the character at the bottom of the resync que for data errors. 


g2 
2s: JSR 
BCS 


3¢ 


PC ,CKCHR 
6$ 


sCHECK THE CHRO CHAR FOR ERRORS. 
sSKIP ERROR REPORT IF CHRO IS CORRECT. 


; We have some sort of date error so report it (unless in summary report mode). 


4$: DEC 


3* 


70$ ;SET THE “ERROR FOUND” FLAG. 
TXRXLBCR3),RO sGET THE TX LINE OFFSET FOR THIS RX LINE. 
BITTBLC(RO),ERSMRF ;CHECK THE ERROR SUMMARY FLAG FOR THIS LINE. 
6$ sSKIP ERROR REPORT IF ERROR SUMMARY FLAG SET. 
@ER9002,ERRBLK ;SELECT THE ER9002 ERROR REPORT ROUTINE. 
ERRNBR sSELECT INITIAL ERRNBR «+ 1. 
PC, TXROFF sTURN OFF TX AND RX DURING ERROR REPORTING. 
; >>>>> ERROR <<<cc, 

TRAP CSERROR 
PC, TXRON ;TURN TX AND RX BACK ON. 
ERRNBR sRESTORE INITIAL ERRNBR. 


; Count a character error if one occurred. 
; Update the “report error summary” flag for line based on error count. 


6$: TST 


70$ 

60$ 
ERCNTBC(R3) 
8s 
ERCNTBC(R3) 


sCHECK THE “ERROR FOUND” FLAG. 

sSKIP COUNTING AN ERROR IF FLAG IS CLEAR. 
sINCREMENT THE ERROR COUNTER FOR THIS LINE. 
sSKIP SETTING COUNTER TO MAX IF NO OVERFLOW. 
sRESET THE ERROR COUNTER TO -1 (MAX VALUE). 
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SEQ 0127 
GLOBAL SUBROUTINE - NEWCHR - 
4795 022326 005737 002166 8$: TST NDERPT sDISABLE ERROR SUMMARY FUNCTION IF 
4796 022332 001411 BEQ 60$ s NUMBER OF DATA ERRORS TO REPORT IS 0. 
4797 022334 026337 003304 002166 CMP ERCNTB(R3),NDERPT ;COMPARE ERROR COUNT WITH @ OF ERR’S TO RPT. 
4798 022342 103405 BLO 60$ sSKIP SETTING OF SUMMARY FLAG IF NOT TOO MANY. 
4799 022344 016300 005236 MOV TXRXLB(R3),RO  ;GET THE TX LINE OFFSET FOR THIS RX LINE. 
prey 022350 056037 002366 002502 BIS BITTBL(RO),ERSMRF ;SET “PRINT ERROR SUMMARY” FLAG FOR LINE. 
4802 022356 60$: PASS sRESTORE GPRS. 
022356 004736 JSR PC ,@CSP)+ sRETURN TO PREGOS SUBRT. 
ast 022360 000207 RTS PC 
4805 022362 000000 70$: -WORD 0 sLOCAL STORAGE FOR ERROR OCCURRED FLAG. 
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SEQ 0128 
GLOBAL SUBROUTINE - OOPS - 

4807 -SBTTL GLOBAL SUBROUTINE - OOPS - 

4808 59+ SOSROSEEOE 000606066 6000000066000000000660000000000000000000000000000000008 

4809 34 - Program abort subroutine - 

4810 34 This subroutine is used to abort the progrem when e fetel error is 

4811 3* detected in the program or the host system hardware. An error mes 

Pony 3% is printed giving some information ebout the neture of the abort. 

;* 
ant 3@ INPUTS: Ri - Error code giving reason for abort. 
1 3% ‘ 
4816 3@ OUTPUTS: An error message is printed. 
$017 34 A list of return PC values for ell subroutine cells is printed. 
34 

4819 3# CALLING SEQUENCE: JSR PC OOPS 

4820 hd 

4821 3@ COMMENTS 

4822 34 

4823 3# SUBORDINATE ROUTINES CALLED: None. 

4824 b-- €00660666660660606060006 66000000006006000606060600000000000000000000000000008 

4825 

4826 022364 OOPS:: SAVE sSAVE CONTENTS OF GPRS RO THRU RS. 
022364 004537 005326 JSR RS ,PREGOS sCALL REGISTER SAVE SUBRT. 

4827 s REPORT “HOST COMPU"ER HARDWARE OR SOFTWARE BUG ENCOUNTERED.” ERROR. 

4828 022370 ERRSF 101,EMO016i 
022370 104454 TRAP CSERSF 
022372 000145 -WORD 101 
022374 022430 -WORD €&MO101 
022376 000000 -WORD 0 

4829 s REPORT “PROGRAM HUNG, WAITING FOR A CONTROL-C. ” 

4830 022400 PRINTF #€M0102 
022400 012746 022514 MOV #€M0102, -( SP) 
022404 012746 000001 MOV #1,-(SP) 
022410 010600 MOV SP ,RO 
022412 104417 TRAP CSPNTF 
022414 062706 000004 ADD 04,SP 

4831 022420 2s: BREAK sLOOK FOR OPERATOR CONTROL-C INPUT. 
022420 104422 TRAP CSBRK 

4832 022422 000776 BR 2s sINFINITE LOOP. 

4833 022424 60$: PASS sDON‘'T NEED THIS, BUT SOMEBODY MAY CHANGE THIS 
022424 004736 JSR PC ,8(SP)+ sRETURN TO PREGOS SUBRT. 

Pron 022426 000207 RTS PC s ROUTINE IN THE FUTURE, SO BE CONSISTANT. 

4836 -NLIST BEX 


4837 022430 110 117 123 EMO101:: .ASCIZ /HOST COMPUTER HARDWARE OR SOFTWARE BUG ENCOUNTERED. / 
4838 022514 045 116 045 €M0102:: a, /SNSAPROGRAM HUNG, WAITING FOR A CONTROL-C. <seseeeeseescesNaN/ 
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4890 022700 
4891 022704 


022704 
4892 022706 





GLOBAL SUBROUTINE 


004537 
013704 
005005 


012737 
032702 


005326 
005320 


003304 
005320 


CVDHCDO OHV11-M FUNC TST PART 3 MACRO VOS.00 Thuredey 25-Apr-85 16:37 Page 90 


- PRFRME - 


005324 


002502 


SEQ 0129 
-SBTTL GLOBAL SUBROUTINE - PRFRME - 
$%% 6660666064600 0666600006606006 0660000606 060606000506000000006000006000000008 
;* - PROCESS FRAMING ERRORS - 
3% This subroutine is used in the Framing error bit test, to verify thet 
3% ell received charecters have their framing error bit set and per ity 
3¢ error bit clear. 
78 
3@ INPUTS: R2 - Conteins the cherecter reed from the FIFO. 
1s ERRNBR - Error number of errors in this routine. 
:* ERSMRF - “Report Error Summary for line” flegs 
i 
3@ OUTPUTS: ERRBLK - The contents of this word ere destroyed. 
;e ERCNTB - The error count for this line is updated. 
74 Messages may be printed et the operators console. 
3% 
78 


3# CALLING SEQUENCE: JSR PC ,PRFRME 


3@ COMMENTS: This routine reports errors with INITIAL number. 
34 oo is restored to its initiel velue before this subroutine 
34 returns. 


3% 
3 SUBORDINATE ROUTINES CALLED: ER6201. 
$-- £6066666 606606066 066668 66660660066 606606 6006606600606 0660600606 06060606066806060060006 


PRFRME : : SAVE sSAVE CONTENTS OF GPRS RO THRU RS. 
JSR RS ,PREGOS sCALL REGISTER SAVE SUBRT. 
MOV ERRNBR ,R4 sSAVE THE CONTENTS OF THE INITIAL ERROR NUMBER. 
CLR RS sCLEAR ERROR/MESSAGE FLAGS. 


3¢ 
s; Test Framing and perity error bits in turn. Report eny errors found, ie. 
+ Freming error bit cleer, or Perity error bit set. 


y MOV @ER6201,ERRBLK ;SET UP THE ADDRESS OF THE ERROR ROUTINE. 


BIT #6IT13,R2 sCHECK ON STATE OF THE FRAMING ERROR BIT. 
BNE 6$ sBRANCH IF FRAMING ERROR BIT SET. 
BIS #BIT1,R5 sSET REPORT FRAMING ERROR FLAG. 

6$: BIT #B8IT12,R2 sCHECK ON THE STATE OF THE PARITY ERROR BIT. 
BEQ 8$ sBRANCH IF PARITY ERROR BIT CLEAR. 
BIS #14,RS sSET REPORT “PARITY ERROR SET” FLAGS. 

8$: TST RS sCHECK IF ANY ERROR FLAGS SET. 
BEQ sEXIT IF ALL FLAGS CLEAR. 


60% 
BIT BITTBL(R3),ERSMRF ;CHECK THE ERROR SUMMARY FLAG FOR THIS LINE. 
10% sSKIP ERROR REPORT IF ERROR SUMMARY FLAG SET. 


td ERROR “CHARACTER RECEIVED WITH PARITY/FRAMING ERROR BIT SET’. 


>>>>> ERROR <<<<<, 
TRAP CsERROR 
10$: INC ERCNTBC(R3) s INCREMENT ERROR COUNT FOR THIS LINE. 
60%: MOV R4,ERRNBR sRESTORE ERROR NUMBER. 
PASS sRESTORE GPRS. 
_— - JSR PC ,@CSP)-+ sRETURN TO PREGOS SUBRT. 
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4894 -SBTTL GLOBAL SUBROUTINE - PRPARE - 
4895 5O¢ O86600006606000666000000060000000000000000000000000000000000000000000000000 
4896 A - PROCESS PARITY ERRORS - 
4897 ae This subroutine is used in the Perity error test, to verify thet 
4898 s@ ell received cheracters have their perity error bit set end freaning 
4899 3% error bit cleer. 
4900 3% 
4901 3@ INPUTS: R2 - Contains the cherecter read from the FIFO. 
4902 34 R3_- Contains 2 ¢ line number of the reed cher. 
4903 3% ERRNBR - Error number of errors in this routine. 
phen s* ERSMRF - “Report Error Summery for line” flegs 
ye 
4906 3# OUTPUTS ERRBLK - The contents of this word ere destroyed. 
4907 3% ERCNTB - The error count for this line is updeted. 
roe 3¢ Messeges may be printed et the operators console. 
34 
4910 3% 
oak 3# CALLING SEQUENCE: JSR PC ,PRPARE 
a 
4913 3@ COMMENTS: This routine reports errors with INITIAL ERRNBR thru ERRNBR+1. 
4914 3% ERRNBR is restored to its initiel value before this subroutine 
4915 36 returns. 
ais 34 The contents of the ERRBLK ere destroyed. 
je 
4918 s# SUBORDINATE ROUTINES CALLED: ER9002,ER6201. 
4919 $-- €660666066600646660606 06060006 666000600600000000000000000000000000000000008 
4920 
4921 022710 PRPARE : : SAVE sSAVE CONTENTS OF GPRS RO THRU RS. 

022710 004537 005326 JSR RS ,PREGOS sCALL REGISTER SAVE SUBRT. 
4922 022714 013746 005320 MOV ERRNBR , -( SP) sSAVE THE CONTENTS OF THE INITIAL ERROR NUMBER. 
penny 022720 005005 CLR RS sCLEAR ERROR/MESSAGE FLAGS. 

4925 s¢ 

4926 s Test Framming end parity error bits in turn. Report any errors found, ie. 

ro 54 s+ Parity error bit cleer, or Fremming error bit set. 

4929 022722 012737 014204 005324 MOV @ER6201,ERRBLK ;SET UP THE ADDRESS OF THE ERROR ROUTINE. 

4930 022730 032702 010000 BIT #6IT12,R2 sCHECK ON STATE OF THE PARITY ERROR BIT. 

4931 022734 001002 BNE 6% sBRANCH IF PARITY ERROR BIT SET. 

4932 022736 052705 000010 BIS @BIT3,RS sSET REPORT PARITY ERROR FLAG. 

4933 022742 032702 020000 6%: BIT #6IT13,R2 sCHECK ON THE STATE OF THE FRAMMING ERROR BIT. 
4934 022746 001402 BEQ 83 sBRANCH IF FRAMMING ERROR BIT CLEAR. 

4935 022750 052705 000003 BIS @3,R5 sSET REPORT “FRAMMING ERROR SET” FLAGS. 

4936 022754 005705 83: TST RS sCHECK IF ANY ERROR FLAGS SET. 

4937 022756 001405 BEQ 12% sBRANCH TO MAKE DATA CHECK IF ALL FLAGS CLEAR. 
4938 022760 036337 002366 002502 BIT BITTBLC(R3),ERSMRF ;CHECK THE ERROR SUMMARY FLAG FOR THIS LINE. 
4939 022766 001024 BNE 14% sSKIP ALL ERROR REP IF IN ERROR SUMMARY MODE. 
4940 sREPORT ERROR “CHAR RECEIVED WITH PARITY/FRAMMING ERROR BIT SET/CLEAR’. 
4941 022770 ERROR F >>>>> ERROR <<<cc, 

022770 104460 TRAP CSERROR 
4942 
4953 se 
poe s Compere ectuel dete with expected dete to check for aultiple errors. 

t id 
4946 022772 005237 005320 128: INC ERRNBR sINCREMENT ERROR NUMBER. 
4947 022776) 016304 003404 MOV RXPTRBCRS).R4  ;GET THE POINTER TO THE EXPECTED DATA. 
4948 023002 111404 MOVE (R4).R4 3sGET THE EXPECTED DATA. 
(! 
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& 
4957 023040 012701 
4958 023044 012737 


023052 104460 
4962 023054 005263 
4963 023060 012637 


023064 004736 
4966 023066 000207 


x 
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002366 
100000 
011477 
014522 


003304 
005320 





005324 


148: 


@BIT15,R4 
BITTBLC(R3),ERSMRF ,CHECK THE ERROR SUMMARY FLAG FOR THIS LINE. 
$ 


16 
BITTBLCR3),R 
149 


#68IT15,R4 
@€M9008 ,R1 
@ER9002,ERRBLK ;SELECT ERROR REPORTING ROUTINE. 
ERROR“RECEIVE CHARACTER MISCOMPARE” 


ERCNTB(R3) 


(SP)+, ERRNBR 


PC 


JSR 
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sCOMPARE ACTUAL AND EXPECTED DATA. 
sSKIP ERROR REPORT IF DATA CORRECT. 
sCLEAR “NONE” EXPECTED MESSAGE FLAG. 


sSKIP ERROR REPORT IF ERROR SUMMARY FLAG SET. 
XDONF ; CHECK FOR RECEPTION COMPLETE ON THIS LINE. 

sSKIP SETTING NONE EXPECTED FLAG. 

sSET “NONE” EXPECTED MESSAGE FLAG. 

sSELECT ERROR MESSAGE TO BE REPORTED. 


TRAP CSERROR 


sINCREMENT ERROR COUNT FOR THIS LINE. 
sRESTORE ERROR NUMBER. 


sRESTORE GPRS. 
PC,@(SP)+ sRETURN TO PREGOS SUBRT. 





SS ER 
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SEQ 0132 
GLOBAL SUBROUTINE - PRTLPR - 

4968 -SBTTL GLOBAL SUBROUTINE - PRTLPR - 

QBS see SOCCAREEEEEEEEEEEEEEEEEEEEEEEEOEEEODEDEEEEOEOOOOOO60600000666006006060604006 

4970 pe -Print the contents of the LPR. 

4971 36 This routine is used to print out extended information on the 

pee | 3¢ contents of the Line Perameter Register (LPR). 

49 ;@ 

4974 3@ INPUTS: R3_- Conteins the number of the line you wish to examine. 

4975 34 CSRA - Contains the address of the DUT’s CSR. 

4976 34 IESTAT - Contains the current status of the TX and RX interrupt 

4977 3¢ enable bits in the DUT’s CSR. 

pe 3* LPRA - Conteins the address of the DUT’s LPR register. 

9 34 

4980 3# OUTPUTS: An extended information message is printed on the operators 

4981 34 console. 

4982 34 

4983 3@ CALLING SEQUENCE: JSR PC ,PRTLPR 

4984 34 

4985 3¢@ COMMENTS: This routine changes the indirect address field of the device 

4986 ;¢ under test's CSR. 

4987 3* 

4988 3# SUBORDINATE ROUTINES CALLED: NONE. 

4989 t-- SOCREEEREEERESEEEEENEEEE EE EEEEEEEOEREE OOOO 66 000000060606000060606006004048808 

4990 

4991 023070 PRTLPR: : SAVE sSAVE CONTENTS OF GPRS RO THRU RS. 

023070 004537 005326 JSR RS ,PREGOS ;CALL REGISTER SAVE SUBRT. 

4992 023074 013701 002202 MOV CSRA,R1 sGET THE CSR ADDRESS. 

4993 023100 013702 002206 MOV LPRA,R2 ;GET THE LPR ADDRESS. 

4994 023104 042703 177760 BIC $177760,R3 ;CLEAR ANY UNWANTED BITS. 

4995 023110 053703 002234 BIS IESTAT,R3 sSET STATE OF TX AND RX INTERRUPT ENABLE BITS. 

4996 023114 010311 MOV R3,(R1) sSELECT LINE. 

4997 023116 011204 MOV (R2),R4 sGET CONTENTS OF THE LPR. 

4998 sPRINT MESSAGE “CONTENTS OF THE LPR:nnnnnn” 

4999 023120 PRINTX @€F9019, 0EM9026,R4;PRINT OUT MESSAGE ON OPERATORS CONSOLE. 
023120 010446 MOV R4,-(SP) 
023122 012746 012203 MOV 9EM9026, -( SP) 
023126 012746 007213 MOV 9€F 9019, -( SP) 
023132 012746 000003 MOV @3,-(SP) 
023136 010600 MOV SP RO 
023140 104415 TRAP CSPNTX 
023142 062706 000010 ADD #10,SP 

5000 023146 60$: PASS s;RESTORE GPRS. 

023146 004736 JSR PC ,8(SP)+ sRETURN TO PREGOS SUBRT. 

5001 023150 000207 RTS PC 











| PunernAan fasts @ Cimier TET AAART 2 MARAA IAL AA es am -« re a a fas —" 


CVDHCDO DHV11-M FUNC TST PART 3 MACRO VOS.00 Thursday 25-Apr-85 16:37 Page 93 
- PUFIFO - 





GLOBAL SUBROUTINE 


5051 023232 





[ Foltia' ©» at,te, © tLe an’ aot ee? ee eo ee 


004537 
012701 
013704 


011402 
100016 


012700 
040200 
001006 


012700 
040200 
001002 
004737 


005301 
001362 
000241 
000401 
000261 


004736 
000207 


005326 
001000 
002204 


070000 


000300 


024726 





-SBTTL GLOBAL SUBROUTINE 
FOOROSESEESEEEEEEEEDEEEEEESEOEOEEEEE4O46 440004806 0640000000000060600000060008008 





- PUFIFO - 


:@ - PURGE THE FIFO 

pe This routine tries to remove ell the characters from the FIFO. 

3@ Any BMP codes that ere found ere saved on the BMP code queue. 

34 

3@ INPUTS: RBUFA- Contains the address of the Receiver. 

3% 

3% 

3 OUTPUTS: Carry bit - Indicates the state of the fifo, set:= purged. 
3@ BMPCQ - The contents of the RMP code queue may be updated. 


s@ CALLING SEQUENCE: JSR 


PC ,PUFIFO 


3# SUBORDINATE ROUTINES CALLED: SAVBMP. 
5 OOREROEEOEE OE EE EE 646606066006 6000 060006 6606000000 00000000000000060000000000008 


PUFIFO: : SAVE 
MOV 
MOV 
2s: MOV 
BPL 


JSR 
#512.,R1 
RBUFA,R4 


(R4),R2 
6$ 


sSAVE CONTENTS OF GPRS RO THRU RS. 

RS ,PREGOS sCALL REGISTER SAVE SUBRT. 
sSET MAXIMUM TRY COUNT OF 512. 

sGET ADDRESS OF THE RECEIVER BUFFER REGISTER. 


sGET THE CONTENTS OF THE RECEIVER BUFFER REG. 
sEXIT IF THE FIFO IS EMPTY, DATA_VALID CLR. 


3* 
; Check if the read character is actually a BMP code. 
; If it is, then save it on the BMP code queue to be reported later. 


s= 
MOV 
BIC 

BNE 


3? 
; Check if 
ae 


4$: DEC 


6$: SEC 
60$: PASS 


#70000 ,RO 
R2,RO 
4s 


#300 ,RO 
R2,RO0 
as 


PC, SAVBMP 


R1 
2s 


60$ 


JSR 
PC 


sGENERATE A BIT MAP OF CHAR ERROR BITS 
s_ WHICH ARE NOT SET FOR CHAR. 
sTHROW CHAR AWAY IF NOT BMP OR SELFTEST CODE. 


the read data is modem status , BMP or Selftest?. 


;_CHECK IF BMP OR SELFTEST?. 

sTRY TO CLEAR BMP FLAGS IN THE READ DATA. 

sIF IT IS MODEM OR SELFTEST CODE THROW IT AWAY. 
sSAVE BMP CODE ON THE QUEUE. 


sDECREMENT THE TRY COUNT. 

sLOOP TO TRY AGAIN. 

sCLEAR CARRY,TO INDICATE FIFO NOT PURGED. 
sEXIT WITH CARRY CLEAR. 

sSET CARRY, TO INDICATE FIFO PURGED. 


sRESTORE GPRS, 
PC ,@(SP)+ sRETURN TO PREGOS SUBRT. 
sCARRY BIT, SET INDICATES FIFO PURGED. 
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SEQ 0134 
GLOBAL SUBROUTINE - PUFIFR - 
5053 -SBTTL GLOBAL SUBROUTINE - PUFIFR - 
5054 § PORE OOEE 6664600600 0000 060666 00640606 600000000606 06 06000004 0000000000000080008 
5055 34 - Purge FIFO report any errors found. 
5056 3% This routine removes all date from the FIFO. Any BMP codes that are 
5057 . 3% found are save on the queue to be reported leter in the BMP report test. 
5058 34 Any unxepected date (ie any non-status inforamtion) that are found, 
5059 34 ere reported as an error. 
5060 3% If the FIFO will not purge efter 512 attempts, then the current test 
5061 3% thet called this routine receives a failure flag that should be used 
5062 3% to abort the test. 
5063 3* 
5064 3@ INPUTS: ERRTBL - ERRTYPE, ERRMSG, ERRNBR are set up correctly. 
tee 34 RBUFA- Contains the address of the Receiver. 
34 
5067 3# OUTPUTS: Cerry bit - Abort test flag, Clr = ABORT TEST, Set = OK. 
5068 3* ERRBLK - Value will be dastroyed. - 
5069 34 BMPCQP - The BMP code queue pointer may be updated. 
ada 34 The contents of the BMP code queue may be udated. 
1 3* 
odd 3# CALLING SEQUENCE: JSR PC ,PUFIFR 
0 3% 
5074 3# COMMENTS: This routine reports errors with numbers initial ERRNBR 
5075 ;* thru to ERRNBR+2. 
at ;* The ERRNBR is restored to its INITIAL value before returning. 
0 3* 
5078 s* SUBORDINATE ROUTINES CALLED: ER1603,ER9001,ER9002,SAVBMP. 
5079 FPREEREEEEEEEEEE EEO 4064464606 60046060006000600 0006000006 06000000060000004000004 
5080 
5081 023234 PUFIFR: : SAVE sSAVE CONTENTS OF GPRS RO THRU RS. 
023234 004537 005326 JSR RS ,PREGOS s;CALL REGISTER SAVE SUBRT. 
5082 023240 013746 005320 MOV ERRNBR , -(SP) sSAVE THE CONTENTS OF THE ERROR NUMBER. 
pose 023244 012705 001000 MOV #512.,R5 sSET MAXIMUM READ COUNTER TO 2eFIFO SIZE. 
084 3¢ 
5085 ; Read data from the FIFO until DATA VALID is clear of read counter is zero. 
foot ; Report any BMP or Unexpected data as errors. 
3° 
5088 023250 017702 156730 2s: MOV ORBUFA,R2 sGET THE CONTENTS OF THE RECEIVER BUFFER REG. 
pee 023254 100057 BPL 8$ sEXIT IF DATA VALID CLEAR, ie. FIFO PURGED. 
7? 
tee ; Check if read data is status or unexpected character. 
092 8° 
5093 023256 012700 070000 MOV #70000 ,RO sGENERATE A BIT MAP OF CHAR ERROR BITS 
5094 023262 040200 BIC R2,RO ; WHICH ARE NOT SET FOR CHAR. 
mee 023264 001012 BNE 4$ sSKIP BMP CHECK IF IT IS UNEXPECTED DATA. 
096 3+ 
5097 ; Check if the read data is modem status , BMP or Selftest?. 
aoe ; If it is a BMP code then save it on the queue. 
09 s- 
5100 023266 012737 014432 005324 MOV #ER9001,ERRBLK ;SET UP THE CORRECT ERROR REPORTING ROUTINE. 
5101 023274 012700 000300 MOV #300 ,RO ; CHECK IF BMP OR SELFTEST?. 
5102 023300 040200 BIC R2,RO0 sTRY TO CLEAR BMP FLAGS IN THE READ DATA. 
5103 023302 001003 BNE 4$ sSKIP BMP ERROR REPORT IF MODEM OR SELFTEST?. 
5104 023304 004737 024726 JSR PC ,SAVBMP sSAVE THE BMP CODE ON THE QUEUE. 
pase 023310 000424 BR 6$ sBRANCH TO CHECK READ COUNT. 
3° 
aed ; Check if the read data is Modem, Selftest or Unexpected date. 
1 a- 
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GLOBAL SUBROUTINE 
5109 023312 


5110 
S111 
5112 
5113 


2 


023316 


032702 
001421 
012701 
010203 
000303 
042703 
006303 
052704 
005237 
012737 


104460 
005337 


005305 
001331 


062737 
012737 
012701 


104460 
000241 
000401 
000261 
012637 


004736 


000207 


000001 
012566 


177760 
100000 


005320 
014522 


005320 


000002 
014124 
011776 


005320 






















SEQ 0135 
- PUFIFR - 
4$: BIT @BITO,R2 sTEST THE MODEM STATUS INDICATION BIT. 
BEQ 6$ sD00 NOT REPORT ANY ERROR IF MODEM STATUS. 
MOV 9EM9104,R1 sPASS THE CORRECT ERROR MESSAGE TO REPORT. 
MOV R2,R3 sEXTRACT THE LINE NUMBER FROM 
SWAB R3 3; THE READ DATA. 
BIC #177760,R3 3 
ASL R3 sFORM LINE NUMBER TIMES 2 FOR ER9002 ROUTINE. 
BIS @BIT15,R4 sSET THE “NONE” EXPECTED MAESSAGE FLAG. 
INC ERRNBR sSET ERROR NUMBER TO INTIAL ERRBR+1. 
005324 MOV #ER9002,ERRBLK ;SELECT THE CORRECT ERROR REPORTING ROUTINE. 
sREPORT ERROR “UNEXPECTED DATA FOUND IN FIFO”. 
ERROR ; >>>>> ERROR <<<cc, 
TRAP CSERROR 
DEC ERRNBR sRESTORE ERROR NUMBER TO INTIAL ERRNBR. 
6$: DEC RS sDECREMENT READ COUNTER. 
BNE 2s sLOOP TO READ NEXT CHAR FROM FIFO IF COUNT > 0. 
3° 
; The FIFO will not clear, report the error and indicate that the test is to 
; be ABORTED. 
005320 ADD #2 ,ERRNBR ;SET ERROR NUMBER TO INTIAL ERRNBR+2. 
005324 MOV #ER1603,ERRBLK ;SELECT THE CORRECT ERROR REPORTING ROUTINE. 
MOV #€M9017,R1 sPASS THE MESSAGE TO BE REPORTED. 
sREPORT THE ERROR “FIFO WILL NOT PURGE, (DATA VALID STUCK SET)" 
; "222222 TEST ABORTED”. 
ERROR ; >>>>> ERROR <<<<<, 
TRAP CSERROR 
+ Ba sINDICATE THE TEST IS TO BE ABORTED. 
BR 10$ sEXIT THIS ROUTINE AND ABORT THE CURRENT TEST. 
8$: SEC sSET THE CARRY, DO NOT ABORT THE TEST. 
1¢%: MOV (SP)+,ERRNBR sRESTORE INITIAL ERROR NUMBER. 
60$: PASS sRESTORE GPRS, 
JSR PC ,A(SP)+ ;RETURN TO PREGOS SUBRT. 


sCARRY BIT, SET INDICATES FIFO PURGED, DO NOT 
_ oe ; ABORT THE TEST. 
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GLOBAL SUBROUTINE 


023426 004537 


5169 023432 012701 
5170 023436 012721 
5171 023442 012721 
5172 023446 005021 
5173 023450 020127 
5174 023454 101774 


023456 004736 
5177 023460 000207 


L 
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005326 
002714 
002722 
002722 


003122 


-SBTTL GLOBAL SUBROUTINE 


see SEO668 666046046 6466006406 0606666060 0600606 0606 06000000 0600000000000000006000008 





- PURRXB - 


3¢ - Purge the RX Buffer in —— Routine - 

34 This subroutine is used before the beginning of a TX/RX of date 
34 patterns to clear out the RX buffer and to initialize the various 
34 counters and pointers related to that buffer. 

3* 

3* INPUTS: RXBSTA - Label at the beginning of the RX buffer. 

3* 

3# OUTPUTS RXBCNT - Count of @ of chars in RX buffer (Cleared). 

34 RXBIPT - Input pointer to RX buffer (Initialized). 

;* RXBOPT - Output pointer to RX buffer (Initialized). 

;@ The contents of the RX BUFFER are cleared. 


3* 
3# CALLING SEQUENCE: JSR 


;* 
3* COMMENTS: 


PC ,PURRXB 


3* 
3# SUBORDINATE ROUTINES CALLED: None. 
t-- SEGEESEEEEEEEEEE SEED EEEEEEEEES OE EEEEEEES OSES OG OEE EEES ODED EEOEEEEEEEEREE EEE 


PURRXB:: SAVE 


2s: CLR 


JSR 


ORXBOPT,R1 
ORXBSTA,(R1)+ 
ORXBSTA,(R1)+ 


JSR 
PC 





sSAVE CONTENTS OF GPRS RO THRU RS. 
RS ,PREGOS sCALL REGISTER SAVE SUBRT. 


sGET THE ADDRESS OF THE RX OUTPUT POINTER. 
sINITIALIZE THE RX BUFFER OUTPUT POINTER. 
sINITIALIZE THE RX BUFFER INPUT POINTER. 
sCLEAR CHAR COUNT AND THE BUFFER AREA. 
sCHECK IF LAST LOCATION HAS BEEN CLEARED. 
sLOOP IF NOT DONE. 


sRESTORE GPRS. 


PC ,@(SP)+ sRETURN TO PREGOS SUBRT. 
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GLOBAL SUBROUTINE 


S211 


L 
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023512 
023516 
023522 
023524 
023526 


023530 
023534 
023542 
023544 


004537 
013704 
013703 
005037 
004737 
004737 


012701 
012702 
005021 
020102 
103775 


013701 
023737 
001402 
062701 


005326 
005320 
002226 
002510 
024702 
026070 


004644 
005044 


002242 
002504 


000062 





- ROCHRS - 
-SBTTL GLOBAL SUBROUTINE - ROCHRS - 
50+ SOCREOEEEEEE ES O46 6666 6006060600606000000006 04 0000000000000000000000000000006 
3% - Reed and Compare Input Cheracters Routine - 
3% This subroutine reads the cheracters from the RX buffer in memory. 
34 If cherecters stop appear i in the buffer with DATA.VALID set. 
a or if more than the ellowable number of cheracters has been read from 
3* the buffer this routine exits with an RX complete indication. 
:# Each read cher is analyzed and any necessary errors ere reported. 
Hg Ff 
3* INPUTS: ACTLNS - Bit map of the active DUT lines. 
3% ERRNBR - Set to error number of first error in this routine. 
3% IBM - Mask of the inactive bits in a TX or RX cher byte. 
3% OSTEND - Address of the end of the output stor fifo buffer. 
;* OSTPTR - Pointer to the next byte to read from OSTORE. 
;% RXBOPT - Pointer into the RX char buffer in memory . 
;* RXTOUT - Time-out value for RX of last cher. 
3% 
3# OUTPUTS: Error messages may be printed at the operator's console. 
3* TXOBLF - TX/RX disabled flag (Cleared). 
3% TXENBM - TX.ENABLE state mask (Destroyed). 
te SAVPRI - Storage for processor priorit (Destroyed). 
3% SAVTEN - Storage for TX.ENABLE states lpectreyesi. 
3* 
3* CALLING SEQUENCE: JSR PC ,ROCHRS 
ok 
3% COMMENTS: This routine reports errors with numbers Initial ERRNBR 
3% thru Initial ERRNBR + 4. 
3* ERRNBR is restored before this routine returns. 
3* 


002174 


3# SUBROUTINES CALLED: CKCHR,NEWCHR,REPCOD,RXIEO,RXIE1, TXENBL, TXIEO, TXIE1, 


WAIBIS. 


i-- SERSESEEEEESEEESEEES EEE ESSE EEELEEEEEEEEEEESEEEEEEEDEEEEEEEEERES SEEDER EREES 


ROCHRS:: SAVE 


MOV 

MOV 

CLR 
JSR 
JSR 


“a CONTENTS OF GPRS RO THRU RS. 


JSR RS ,PREGOS sCALL REGISTER SAVE SUBRT. 
ERRNBR ,R4 sPRESERVE THE INITIAL ERROR NUMBER. 
IBM, R3 sGET THE INACTIVE BIT MASK. 
TXDBLF sCLEAR THE TX DISABLED FLAG. 
PC ,RXIE1 sTURN ON DUT RECEPTION INTERRUPTS. 
PC, TXIE1 sTURN ON DUT TR&MSMISSION INTERRUPTS. 


3¢ 
; Clear all resync queues for all lines. 


g- 
MOV 
MOV 
2s: CLR 


3? 


OPRSQB,R1 sGET BASE ADDRESS OF RESYNC QUEUES TABLE. 
@OPRSQE , R2 sGET END ADDRESS OF RESYNC QUEUES TABLE. 
(R1)+ sCLEAR A WORD OF THE TABLE. 

R1,R2 sCHECK IF POINTER AT END OF TABLE. 

2s sLOOP UNTIL TABLE IS CLEAR. 


; Wait for ea character to appear in the FIFO. 
; If no character appears within time-out period: exit routine, we're done. 


7 
43: MOV 
CMP 





RXTOUT ,R1 sGET TIME-OUT FOR SLOWEST BAUD RATE IN USE. 
TXDONF ,ACTLNS ;CHECK FOR TRANSMISSION DONE ON ACTIVE LINES. 
6$ sSKIP ADDING SO MS DELAY IF TX DONE ALL LINES. 
#50. ,R1 sADD SO MILLI SEC TO DELAY IF NOT LAST CHAR. 
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- ROCHRS - 


GLOBAL SUBROUTINE 


S235 023550 
5236 023554 
5237 023560 
5238 023564 


5283 023710 
5284 023714 
5285 023720 
5286 023724 


052701 
013702 
004737 
103073 


004737 


012701 
012737 


104460 
000452 


012700 
040200 
001007 


010437 
005237 
004737 
000407 


170000 
002714 
027160 


020430 


002510 
002720 


024702 
002250 
002720 


000340 
025646 
002510 


002500 


005320 
012107 
014100 


070000 


005320 
005320 
024066 


000020 


000020 


005324 




























SEQ 0138 


6$: BIS #170000,R1 sINDICATE TO TEST DATA.VALIO BIT. 


MOV RXBOPT ,R2 sINDICATE TO CHECK MEMORY RECEIVE BUFFER. 
JSR PC ,WAIBIS sWAIT FOR RECEIVED CHAR OR TIME-OUT. 

Bcc 18$ sEXIT ROUTINE IF TIME-OUT, WE'RE DONE. 
JSR PC ,GETCHR sREAD A CHARACTER FROM THE MEMORY BUFFER. 


3¢ 

; Check if the TX ISR is disabled. 

; Re-enable RX ISR if the space for new chars is low enough. 

; If the buffer can accomodate more chars then re-enable transmission. 


8$: TST TXDBLF sCHECK IF TX IS DISABLED. 


BPL 10$ sSKIP RX/TX CHECK IF TX NOT DISABLED. 
CMP RXBCNT,@RXBETX ;COMPARE BUFFER COUNT WITH LEVEL TO ENABLE RX. 
BHI 10$ sSKIP ENABLE RX IF BUFFER TOO FULL. 
JSR PC ,RXIE1L sENABLE RECEPTION INTERRUPTS. 
MOV TXENBM RS sGET THE PRESERVED TX.ENABLE STATES. 
CMP RXBCNT,@RXBETX ;COMPARE BUFFER COUNT WITH LEVEL TO ENABLE TX. 
BHI 10$ sSKIP ENABLING TX IF BUFFER TOO FULL. 
MFPS R1 sSAVE THE CURRENT PROCESSOR PRIORITY. 
MTPS @PRIO7 sDISABLE INTERRUPTS. 
JSR PC, TXENBL sENABLE TRANSMISSION. 
CLR TXDBLF ;CLEAR THE TX DISABLE FLAG. 
MTPS R1 ;RE-ENABLE INTERRUPTS. 
10$: 
DEC CHRTOT sDECREMENT THE TOTAL CHAR COUNTER. 
BNE 12$ ;SKIP ERROR IF NOT TOO MANY RECEIVED. 
MOV R4,ERRNBR ;SET ERROR NUMBER TO INITIAL ERRNBR. 
MOV #EM9025,R1 ;SELECT THE PROPER ERROR MESSAGE. 
MOV EROSO3,ERRBLK ;SELECT THE PROPER ERROR REPORT ROUTINE. 
3¢ 
; Report error at Initial ERRNBR. 
; “MORE THAN TWICE THE EXPECTED NUMBER OF CHARACTERS RECEIVED.” 
ERROR ; >>>>> ERROR <<<<<, 
TRAP CSERROR 
BR 60$ sEXIT THE ROUTINE, WE'RE GIVING UP. 
3¢ 
; Determine if the character is data or a status code. 
- 
12$: MOV #70000 ,RO sGENERATE A BIT MAP OF CHARACTER ERROR BITS 
BIC R2,RO ; WHICH ARE NOT SET FOR THE CHARACTER. 
BNE 14$ sSKIP REPORTING OF ERROR CODE IF WE HAVE CHAR. 


3* 

; The date is either a BMP code or a Modem Status code. 

; Report that the code was found. 

; Errors reported with error numbers >>>>> ERRNBR+1 and ERRNBR+2 <<<<<, 


MOV R4,ERRNBR sGET THE ERROR NUMBER PASSED INTO THIS ROUTINE. 
INC ERRNBR sSET ERROR NUMBER TO INITIAL ERRNBR+1. 

JSR PC ,REPCOD sREPORT THE BMP OR MODEM STATUS CHANGE CODE. 
BR 16% sBRANCH TO GET THE NEXT CHARACTER. 


;* 

; The data is a valid character: 

; Compare the read data with the expected data. 
; Update expected data pointer. 





| CVNHETNO NHV11_M FILING TCT DADT 2 MACON WAKE AA Tu..neu-.. 26 a_. a2f 1+ 33 hl oni, ze 
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GLOBAL SUBROUTINE 
5291 
5292 
5293 023726 010437 005320 


5294 023732 062737 000003 
S295 023740 004737 022104 


5302 023744 004737 020430 


5308 023754 004737 024650 
5309 023760 004737 025442 


5312 023770 004737 022104 
5313 023774 062702 000400 
5315 024002 120127 000010 


5320 024016 012701 100000 


5323 024024 010437 005320 





i PuUunRMPAN Masset _w@ Cimir TET BART F MARA VIALE AA 


- ROCHRS - 


005320 


3 
ht 
143: 


3¢ 


MOV 
ADD 
JSR 


R4,ERRNBR 
#3 ,ERRNBR 
PC ,NEWCHR 


Errors reported with error numbers >>>>> ERRNBR+3 and ERRNBR+4 KERR, 


sCALCULATE THE STARTING ERROR NUMBER FOR THE 
s NEXT ROUTINE CALL CINITIAL ERRNBR+3). 
sHANDLE THE NEW DATA CHARACTER. 


; Done processing this character. 

3; Read another char from the DUT FIFO. 

; If DATA.VALIO is set, loop to check the received character. 
; If DATA.VALID is clear loop to wait for it set or time-out. 


5= 
16$: 


3¢ 


; Use dummy characters to force 


* Ted 
18$: 


60$: 


JSR 
BCS 
BR 


rn | 


PC ,GETCHR 
8$ 
4s 


PC ,RXIEO 
PC, TXDONE 
R2 


Ri 
PC ,NEWCHR 


#100000,R1 
20% 


R4,ERRNBR 


JSR 
PC 





sREAD A CHARACTER FROM THE RX BUFFER. 
sIF OATA.VALID SET, GO TO CHECK THE RX CHAR. 
sLOOP TO WAIT CHAR OR TIME-OUT IF BUFFER EMPTY. 


analysis of characters in resync queues. 


sTURN OFF DUT RX INTERRUPTS. 

sCHECK IF TX DONE, TURN OFF DUT TX INTERRUPTS. 
sCLEAR THE DUMMY CHARACTER. 

sCLEAR THE LOOP COUNTER. 

sFORCE ONE RESYNC QUE CHAR TO BE ANALYZED. 
sINCREMENT THE LINE NUMBER IN THE DUMMY CHAR. 
sINCREMENT THE LOOP COUNTER. 

sTEST FOR LOOP COUNTER EQUAL TO @ OF DUT LINES. 
sLOOP IF LOOP COUNT IS NOT ALL LINES DONE. 
sCHECK FOR SECOND TIME AROUND OUTER LOOP. 

sEXIT IF OUTER LOOP DONE TWICE. 

sCLEAR THE DUMMY CHAR FOR 2ND TIME AROUND LOOP. 
sCLEAR LOOP COUNT, SET OUTER LOOP FLAG. 

sLOOP THE SECOND TIME AROUND OUTER LOOP. 


sRESTORE THE ERROR NUMBER TO ITS INITIAL VALUE. 
sRESTORE GPRS. 
PC ,8C(SP)+ 


sRETURN TO PREGOS SUBRT. 





SEQ 0139 
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GLOBAL SUBROUTINE 


5351 


5358 
5359 


5360 
5361 


5362 
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024060 
024060 


024062 
024062 
024064 


004537 
013702 
001406 


012737 


012701 


104460 


004736 
000207 


005326 
002252 


015430 
012477 


- ROMAST - 


005324 





SEQ 0140 
-SBTTL GLOBAL SUBROUTINE - RDOMAST - 
b¢¢ SESSSEEEEEEEEL ED OS O46 064600060600 06 0606 0000000000000000000000000060000008008 
34 - Report DMA_START Bit Errors Routine - 
3* This subroutine checks for lines which have DMA_START bit errors 
3% during the just completed DMA transmission. If any are found, 
;* they are reported. 
3% 
3* INPUTS: ERRMSG - Address of primary error message for this routine. 
3% ERRNBR - Error number of error reported in this routine. 
3% TXINTF - Contains bit map of lines with DMA_START bit errors. 
3% 
3* OUTPUTS: ERRBLK - Address of the error reporting routine (Destroyed). 
3% Messages may be printed at the operator console. 
;* 
3# CALLING SEQUENCE: JSR PC ,ROMAST 
;* 
3* COMMENTS: If no lines have DMA_START bit errors, no messages are printed. 


3* 
s* SUBORDINATE ROUTINES CALLED: ER9102. 
i-- SEREEEEEEEEEEEEEDE EEE ES EEEE DS OO0S 46444848 >. 984008400444 OOOO OEEEEEEEEE REEDS 


ROMAST:: SAVE sSAVE CONTENTS OF GPRS RO THRU RS. 


JSR RS ,PREGOS sCALL REGISTER SAVE SUBRT. 
MOV TXINTF ,R2 sGET COPY OF THE DMA_START ERRORS BIT MAP. 
BEQ 60$ sEXIT IF NO DMA_START ERROR BITS ARE SET. 


3¢ 


; We have some DMA_START bit errors to report. 


MOV ER9102,ERRBLK ;SELECT THE ERROR REPORTING ROUTINE. 
MOV 9E€M9102,R1 sINDICATE THAT WE HAVE DMA_START BIT ERROR. 
3¢ 
; Report “DMA_START BIT SET AFTER RESET OR TX.ACTION ... ON LINES(S):” 
ERROR ; >>>>> ERROR <<ccc, 
TRAP CSERROR 
60$: PASS sRESTORE GPRS. 


JSR PC ,@(SP)+ sRETURN TO PREGOS SUBRT. 


RTS PC 


ee awr.e@f «ae 8° ~ 


is cet... 








CVDHCDO DHV11-M FUNC TST PART 3 MACRO VOS.00 Thursday 25-Apr-85 16:37 Page 98 


GLOBAL SUBROUTINE - REPCOD - 


5364 -SBTTL GLOBAL SUBROUTINE - REPCOD - 
5365 5% SOCCOOS6 6600006606 0000 606006000006 0600000000 6000000000000000000000000088000 
5366 34 - Routine to Report Error Code From DUT - 
5367 3% This routine reports an error code which hes been read from the DUT 
5368 34 FIFO. The code is checked to determine whether it is e Selftest code 
5369 3% an Modem Status Change code or a BMP code. This routine essumes thet 
5370 :* the code indicates ean error. If a BMP code is found it is not reported 
sere :8 immediately, but is saved on the BMP code queue to be reported leter. 
34 
5373 3* INPUTS R2 - Contains the error code complete with flegs and line 2. 
con 3% ERRTBL - ERRTYP,ERRNBR,and ERRMSG set up correctly. 
3* 
5376 3@ OUTPUTS ERRBLK - Velue may be destroyed. 
cor 34 BMPCQP - Maybe updated if ea code is added to the queue. 
3* 
Aad 3# CALLING SEQUENCE: JSR PC ,REPCOD 
34% 
5381 3* COMMENTS: ERRNBR is restored to its entering value ns routine. 
coee 34 This routine reports errors with numbers ERRNBR thru ERRNBR+1. 
3% 
5384 s# SUBORDINATE ROUTINES CALLED: ER9001,SAVBMP. 
5385 j-- S8OSOR606600006666 000006 6606000060060000000600000000000000000000000000000008 
5386 024066 REPCOD:: SAVE sSAVE CONTENTS OF GPRS RO THRU RS. 
024066 004537 005326 JSR RS ,PREGOS sCALL REGISTER SAVE SUBRT. 
5387 024072 012737 014432 005324 MOV @ER9001,ERRBLK ;SELECY THE ERROR REPORTING ROUTINE. 
5388 024100 013703 005320 MOV ERRNBR ,R3 sPRESERVE THE ERROR NUMBER. 
5389 024104 010204 MOV R2,R4 sEXTRACT THE LINE NUMBER FIELD 
5390 024106 000304 SWAB R4 ; FROM THE ERROR CODE WHICH WAS 
2444 024110 042704 177760 BIC #177760,R4 s PASSED INTO THIS ROUTINE. 
3? 
tty ; Determine the type of code which is to be reported. 
g° 
5395 024114 012701 011301 MOV #EM9003,R1 sSELECT MODEM STATUS CODE MESSAGE. 
5396 024120 032702 000001 BIT @BITO,R2 sTEST THE MODEM STATUS INDICATION BIT. 
5397 024124 001422 BEQ 4$ sGOTO REPORT ERROR IF MODEM STATUS CODE. 
5398 024126 005237 005320 INC ERRNBR sSELECT THE SELFTEST CODE ERROR NUMBER. 
5399 024132 012701 011323 MOV #EM9004,R1 sSELECT SELFTEST CODE MESSAGE. 
024136 012700 000300 MOV #300 ,RO sCHECK IF SELF-TEST OR BMP CODE. 
5401 024142 040200 BIC R2,RO sTRY TO CLEAR BMP BITS. 
5402 024144 001003 BNE 2s sGO CHECK FOR SELFTEST CODE IF NOT BMP. 
5403 024146 004737 024726 JSR PC ,SAVBMP sSAVE THE BMP CODE ON THE QUEUE. 
5404 024152 000420 BR 60$ sEXIT THIS ROUTINE. 
5405 024154 122702 000201 2s: CMPB #201,R2 sCHECK FOR SELF TEST NULL CODE. 
5406 024160 001413 BEQ 6$ sEXIT ROUTINE IF NULL CODE FOUND. 
5407 024162 122702 000203 CMPB #203,R2 sCHECK FOR SKIP SELF TEST CODE. 
5408 024166 001410 BEQ 6$ sEXIT ROUTINE IF SKIP SELF TEST CODE FOUND. 
teed 024170 000400 BR 4$ 3GO REPORT SELF TEST ERROR. 
* 
ey s Report “UNEXPECTED xxxxx CODE FOUND IN RECEIVE CHAR FIFO.” 
go 
5413 024172 042702 177400 4$: BIC #177400 ,R2 sREMOVE UPPER BYTE OF CODE TO BE REPORTED. 
5414 024176 004737 026370 JSR PC , TXROFF sTURN OFF TX AND RX DURING ERROR REPORTING. 
$415 024202 ERROR F >>>>> ERROR <<<cc, 
024202 104460 TRAP CsERROR 
cae 024204 004737 026424 JSR PC, TXRON ;TURN TX AND RX BACK ON. 
3¢ 
5418 ; Restore the initiel error number. 


LL 


| CVDHCDO DHV11-M FUNC TST PART 2 MAfAN VWnEe An 
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SEQ 0141 
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GLOBAL SUBROUTINE 


5419 
5420 024210 
5421 


5423 024216 





010337 005320 


004736 
000207 


- REPCOD - 


ge 
6$: 


60$: 


MOV 
PASS 
RTS 


R3,ERRNBR 


PC 


JSR 





sRESTORE GPRS. 
PC ,@(SP)-+ 


sRETURN TO PREGOS SUBRT. 
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- REPSMR - 
-SBTTL GLOBAL SUBROUTINE - REPSMR - 





SEQ 0143 






































5426 50% S8O060000600 066000060600 60000600000000 0000000000000000000600000000000000000 
$427 3@ - Report Error Summery Routine - 
5428 3% This subroutine reports en error summery for those lines which have 
5429 3% exceeded the number of individuel errors to report for a single line 
5430 3@ in @ single test. This peremeter cen be specified by the operetor if 
te 3¢ he/she enswers the Softwere Peremeter Questions. 
3% 
5433 3# INPUTS: ERCNTB - Lebel et bese of line error counters teble. 
5434 3@ ERRMSG - Address of primery error message. 
5435 3% ERRNBR - Error number of errors in this routine. 
te 3% ERSMRF - “Report error summery for line” flags. 
3% 
5438 3@ OUTPUTS: ERRBLK - Address of error reporting routine (Destroyed). 
reed 3% Summery messsges may be printed et the operetor console. 
3% 
oe s# CALLING SEQUENCE: JSR PC ,REPSMR 
3% 
5443 3 COMMENTS: If no lines have exceeded the maximum number of individuel 
5444 36 errors to report, no messages ere printed by this routine. 
5445 3% Error summeries in this routine ere reported es errors. 
coat 18 The contents of ERRBLK ere destroyed. 
ge 
5448 s# SUBORDINATE ROUTINES CALLED: 
5449 b-- S66600006000600060000000000000000000000000000000000000000000000000000000008 
5450 
5451 024220 REPSMR:: SAVE sSAVE CONTENTS OF GPRS RO THRU RS. 
024220 004537 005326 JSR »PREGOS sCALL REGISTER SAVE SUBRT. 
5452 024224 005737 002502 TST ERSMRF sCHECK THE “PRINT LINE ERROR SUMMARY” FLAGS. 
5453 024230 001404 BEQ 603 sEXIT WITHOUT ACTION IF NO SUMMARY FLAGS SET. 
3¢ 
pes s We have some error summaries to report. 
g° 
eens 024232 012737 015052 005324 MOV #ER9004,ERRBLK ;SELECT ERROR REPORTING ROUTINE. 
3° 
5459 3s Report 
Beet 8 “ERROR SUMMARY REPORT FOR LINES WITH EXCESSIVE NUMBERS OF ERRORS: ” 
i- 
5462 024240 ERROR 
—_ 024240 104460 TRAP CSERROR 
5464 024242 60%: PASS sRESTORE GPRS. 
024242 004736 JSR PC ,@CSP)+ sRETURN TO PREGOS SUBRT. 
5465 024244 000207 RTS PC 
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GLOBAL SUBROUTINE - RESETT - 
























5467 -S6TTL GLOBAL SUBROUTINE - RESETT - 
5468 §OOOOOOSOOES OE 66 06 000660600006 00060660000600066060000000000000060600600600000008 
5469 3¢ - Reset Device Under Test - 
5470 ;@ This subroutine is used to reset the DUT to e@ known state. 
5471 3@ If reset does not succesfully complete, ie. time-out occurs, then 
odd | s¢ en abort test error messege is reported. 
3¢ 
5474 3@ INPUTS: CSRA - Contains the eddress of the CSR 
5475 36 TXBFCA - Contains eddress of DUT DMA Buffer Count register. 
oda 36 ERRTBL- ERRTYP,ERNBR,and ERRMSG set up correctly. 
3¢@ 
5478 3@ OUTPUTS: The DUT performs its reset function into e known state. 
5479 38 CARRY - Cleer indicates the test is to be eborted. 
5480 3¢ ERRBLK - velue may be destroyed. 
5481 36 b IESTAT - TX and RX interrupt fl ere cleared. 
sees 34 TX and RX interrupt eneble bits in the DUT’s CSR ere cleared. 
38 
coos 3@ CALLING SEQUENCE: JSR PC ,RESETT 
34 
5486 3@ COMMENTS: This subroutine can report errors with numbers initial ERRNBR 
5487 36 This routine does not destroy the value of ERRNBR. 
5488 yo 
5489 3 SUBORDINATE ROUTINES CALLED: DELAY,MSLGET. 
5490 §OROOOO646 66 06 60 066006 600660060606066600006 600600000000 0000000000000006600008608 
5491 
5492 024246 RESETT:: SAVE sSAVE CONTENTS OF GPRS RO THRU RS. 
024246 004537 005326 JSR RS ,PREGOS sCALL REGISTER SAVE SUBRT. 
aoe 024252 012702 000040 MOV @BITOS ,R2 sSET BIT MASK OF MASTER RESET BIT. 
94 3° 
5495 ; Test the stete of the mester reset bit in the CSR. 
5496 + If MR is set then wait for self-test to complete. 
need : If time-out occurs, report the error and pess-out abort test indicator. 
id 
5499 024256 013704 002202 MOV CSRA,R4 sGET THE ADORESS OF THE DUT’S CSR. 
5500 024262 030214 BIT R2,CR4) sCHECK STATE OF MASTER RESET BIT. 
5501 024264 001406 BEQ 2s 3;DON‘T DELAY IF MR IS ALREADY CLEAR. 
5502 024266 005003 CLR R3 sSET UP DESIRED STATE OF MASTER RESET BIT. 
5503 024270 012701 004704 MOV #2500. ,R1 sPASS TIME-OUT VALUE OF 2.5 SECONDS. e 
5504 024274 004737 021464 JSR PC ,MSLGET sWAIT FOR SELF-TEST TO COMPLETE, MR CLEAR. 
ese 024300 103012 Bcc AS sGO REPORT ERROR IF TIMEOUT OCCURRED. 
5507 3° 
5508 + Set Master Reset bit in CSR. Clear TX and RX enable bits, etc. 
5509 ; Skip the selftest. 
— +s Time-out of 2.5 secs, just in case the self-test executes. 
11 3° 
5512 024302 010277 155674 23: MOV R2,8CSRA sSET MASTER RESET BIT, DISABLE TX AND RX INTS. 
5513 024306 004737 024774 JSR PC,SKPSTS sTRY TO SKIP THE SELFTEST. 
5514 3° 
5515 3 Set Self-test time-out of 2.5 seconds, and wait for M.R to clear. 
5516 : If Time-out occurs, then report the fatal error and pass-out the abort 
aH 3 test indicetor. 
18 $- 
5519 024312 005003 CLR R3 :SET UP DESIRED STATE OF MASTER RESET BIT. 
5520 024314 012701 004704 MOV #2500. ,R1 sPASS TIME-OUT VALUE OF 2.5 SECONDS. 
5521 024320 004737 021464 JSR PC ,MSLGET sWAIT FOR SELF-TEST TO COMPLETE, MR CLEAR. 
5522 024324 103410 6csS 6$ sSKIP ERROR REPORT IF MR CLEARED IN TIME. 
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GLOBAL SUBROUTINE - RESETT - 














SEQ 0145 


5523 ‘¢ 
$524 s Set up error message to report "fetel error found during reset,test aborted”. 
a s Indicate test is to be aborted by clearing the carry bit. 
g= 
5527 024326 012701 010134 4$: MOV 0€M1601,R1 sPASS ERROR MESSAGE TO REPORT. 
5528 024332 012737 014124 005324 MOV @ER1603,ERRBLK ;PASS ADDRESS OF ERROR HANDLING ROUTINE. 
5529 sREPORT ERROR “TIME-OUT OCCURRED WAITING FOR MASTER RESET TO CLEAR” 
5530 3s “TEST ABORTED” 
5531 024340 ERROR F >>>>> ERROR <<cc< 
024340 104460 TRAP CSERROR 
5532 024342 000241 cLC sINDICATE TEST IS TO BE ABORTED. 
nas 0243 000403 BR 60$ sEXIT THIS SUBROUTINE, ABORT TEST INDICATOR. 
3¢ 
$535 s Clear TX and RX Interrupt enable status flegs in IESTAT. 
es s Exit with continue test indicator set (ie,carry set). 
- , 
5538 024346 005037 002234 63: CLR IESTAT sCLEAR TX AND RX INTERRUPT STATUS FLAGS. 
a4 024352 000261 SEC sINDICATE SUCCESS, CONTINUE TEST. 
5541 024354 60$: PASS sRESTORE GPRS, PASS THe FOLLOWING INTACT: 
024354 004736 JSR PC ,@(SP)+ sRETURN TO PREGOS SUBRT. 
5542 sCARRY BIT:IF CLEAR, INDICATES ABORT TEST. 
Eeet 024356 000207 RTS PC 
4 
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GLOBAL SUBROUTINE - RRXNON - 


SEQ 0146 


a 





| CVDHCDO DHV11-M FUNC TST 


024360 
024360 
024364 
024366 
024372 


024374 
024402 
024406 


024412 
024412 


024414 
024414 
024416 


004537 
010502 
043702 
001410 


012737 
012701 
012704 


104460 


004736 
000207 


005326 
002506 


015154 
011767 
003544 


005324 





-SBTTL GLOBAL SUBROUTINE - RRXNDN - 


ioe SOOO OS6OSOEE EE O44E S446 06466004 0000004000000606000000000000064600000060040806 
}@ - Report Reception Not Completed Routine - 


34 This subroutine checks for lines which did not receive the complete 
34 dete pattern. If any ere found, they ere reported. 

3* 

3# INPUTS RS - Locel active lines bit map. 

i* DPLENB - Base of table of date pattern 9 -y¥ 

34 ERRMSG - Address of primary error message for this routine. 
;* ERRNBR - Error number of error reported in this routine. 

34 RXCNTB - Label at bese of the RX character counters table. 
34 RXDONF - Reception done flags. 

34 

3# OUTPUTS: ERRBLK - Address of the error reporting routine (Destroyed). 
34 sseges may be printed at the operator console. 

3¢ 

3# CALLING SEQUENCE: JSR PC ,.RRXNON 

;* 

3* COMMENTS: If no lines failed to complete their reception, no messages 


8 ere printed. 


3# SUBORDINATE ROUTINES CALLED: ER9005. 


3-- acacesiachacachatatetethteteatetethteeeebb LL LLL LLL TLL TTT TTT TTT TTT Tet ttt 


RRXNON:: SAVE sSAVE CONTENTS OF GPRS RO THRU RS. 
JSR RS ,PREGOS sCALL REGISTER SAVE SUBRT. 
MOV RS ,R2 sGET COPY OF THE LOCAL ACTIVE LINES BIT MAP. 
BIC RXDONF ,R2 sGET MAP OF ACTIVE LINES WITH RX DONE FLAG CLR. 
BEQ 60$ sEXIT IF NO ACTIVE LINES HAVE RX DONE FLAG CLR. 


7¢ 
; We have some “RX not completed” errors to report. 


MOV @ERIOOS,ERRBLK ;SELECT THE ERROR REPORTING ROUTINE. 
MOV 9€M9016,R1 sINDICATE THAT WE ARE DEALING WITH RECEPTION. 
MOV @RXCNTB,R4 sPASS BASE OF RX CHAR COUNTERS TABLE TO ER9005S. 


3;* 

+ Report “SINGLE CHARACTER MODE TEST ERROR: “ 
; “DATA PATTERN NOT COMPLETELY RECEIVED ON ALL LINES: ” 
; eee 


ERROR 
TRAP CSERROR 
60$: PASS sRESTORE GPRS. 
- - JSR PC ,@(SP)+ sRETURN TO PREGOS SUBRT. 
$ 
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SEQ 0147 
GLOBAL SUBROUTINE - RTXNON - 
5591 -SBTTL GLOBAL SUBROUTINE - RTXNON - 
5592 59% C86066666606000060600000606606006060660646000000000000000000000000008000008 
5593 3¢ - Report Transmission Not Completed Routine - 
5594 3@ This subroutine checks for lines which did not transmit the complete 
ay 34 dete pattern. If any ere found, they ere reported. 
3% 
5597 3@ INPUTS: RS - Locel active lines bit map. 
5598 34 DPLENB - Lebel at base of data pattern a table. 
5599 :¢ ERRMSG - Address of primary error message for this routine. 
5600 34 ERRNBR - Error number of error reported in this routine. 
5601 34 TXCNTB - Label at base of the TX character counters table. 
poor i¢ TXDONF - Transmission done flags. 
3% 
5604 3@ OUTPUTS: ERRBLK - Address of the error reporting routine (Destroyed). 
5605 34 Messages may be printed at the operator console. 
5606 3* 
aad 3* CALLING SEQUENCE: JSR PC ,.RTXNON 
3* 
5609 3* COMMENTS: If no lines failed to complete their transmission, no messages 
5610 3* ere printed. 
5611 3* 
5612 s* SUBORDINATE ROUTINES CALLED: ER9005. 
5613 j-- SOROSO60 6060000606 060000600600 060000 0006 06000000000008060000400000000000008 
5614 
5615 024420 RTXNON:: SAVE sSAVE CONTENTS OF GPRS RO THRU RS. 
024420 004537 005326 JSR RS ,PREGOS ;CALL REGISTER SAVE SUBRT. 
5616 024424 010502 MOV RS ,R2 sGET COPY OF THE LOCAL ACTIVE LINES BIT MAP. 
5617 024426 043702 002504 BIC TXDONF ,R2 sGET MAP OF ACTIVE LINES WITH TX DONE FLAG CLR. 
rr 024432 001410 BEQ 60$ sEXIT IF NO ACTIVE LINES HAVE TX DONE FLAG CLR. 
i+ 
bere ; We have some “TX not completed” errors to report. 
62 8° 
5622 024434 012737 015154 005324 MOV MERIOOS,ERRBLK ;SELECT THE ERROR REPORTING ROUTINE. 
5623 024442 012701 011753 MOV #EM9015,81 sINDICATE WE ARE DEALING WITH TRANSMISSION. 
pees 024446 012704 003504 MOV #TXCNTB,R4 sPASS BASE OF TX CHAR COUNTERS TO TABLE EROSOS. 
5626 3+ 
5627 ; Report “SINGLE CHARACTER MODE TEST ERROR:” 
eee 3 “DATA PATTERN NOT COMPLETELY TRANSMITTED ON ALL LINES: ” 
g 3 cae 
5630 3° 
5631 024452 ERROR ; >>>>> ERROR <<ccc, 
024452 104460 TRAP CSERROR 
5632 
5633 
5634 024454 60$: PASS sRESTORE GPRS. 
024454 004736 JSR PC,A8(SP)+ sRETURN TO PREGOS SUBRT. 
5635 024456 000207 RTS PC 





| CVOHCDO DHV11-M FUNC TST PART 3 MACRO VO5.00 Thursday 25-Apr-85 16:37 Page 103 








CVDHCDO OHV11-M FUNC TST PART 3 MACRO VOS5.00 Thursday 25-Apr-85 16:37 Page 103 


SEQ 0148 
GLOBAL SUBROUTINE - RXDSBL - 
5637 -SBTTL GLOBAL SUBROUTINE - RXDSBL - 
5638 gee SEOEOS OE 6EOS E666 60000608 06 6604000006046 06 0004000000600 00000006000040000008084 
5639 34 - Disable Receivers - 
5640 3¢ This subroutine is used to disable reception on selected lines by, 
Seas ;* clearing the associated RX_ENABLE bit on the DUT. 
3* 
5643 3 INPUTS: RS - Bit’s set correspond to lines on which to clear RX_ENABLE. 
5644 3% CSRA - Contains the address of the DUT CSR. 
5645 34 IESTAT - Contains the state of TXIE and RXIE bits in the CSR. 
5646 ;* NUMLNS - Equated to be the maximum number of lines available. 
eeet 34 LNCTRA - Contains the eddress of the LNCTRL register. 
34 
5649 3# OUTPUTS: RS - Bit’s set indicate initial states of all RX_ENBLE bits. 
5650 3* LNCTRA - The state of the RX_ENBLE bit may be altered. 
pose 1 The contents of the IND_ADD_REG field in the CSR are destroyed. 
;* 
5653 3@ CALLING SEQUENCE: JSR PC ,RXDOSBL 
5654 34 
5655 3:@ COMMENTS: 
5656 34 
5657 3# SUBORDINATE ROUTINES CALLED: NONE. 
5658 i-- SERSOEEE EES ESOS 64600046 0606 064400040606 06 000000000008000000040040000404004 
5659 
5660 024460 RXDSBL:: SAVE sSAVE CONTENTS OF GPRS RO THRU RS. 
024460 004537 005326 JSR RS ,PREGOS sCALL REGISTER SAVE SUBRT. 
5661 024464 010500 MOV R5,RO sCOPY BIT MAP OF LINES TO DISABLE RECEPTION. 
5662 024466 012701 000001 MOV @BITO,R1 sINITIALIZE THE SELECTED LINE BIT MASK. 
5663 024472 013702 002212 MOV LNCTRA,R2 sGET THE ADDRESS OF THE LNCTRL REGISTER. 
5664 024476 012703 000010 MOV @NUMLNS , R3 sGET MAXIMUM LINE NUMBER PLUS ONE. 
5665 024502 013704 002234 MOV IESTAT,R4 sGET THE STATES OF THE INT ENABLE BITS. 
ae 024506 005005 CLR RS sLOG POSSIBLE RX DISABLED ON ALL LINES. 
3¢ 
noes ; Select every line in turn, and log the state of each RX_ENABLE bit. 
_ 
5670 024510 010477 155466 2s: MOV R4,8CSRA sWRITE TO DUT CSR TO SELECT LINE REGISTERS. 
5671 024514 032712 000004 BIT *BIT2,(R2) sCHECK STATE OF RX_ENABLE BIT ON SELECTED LINE. 
5672 024520 001401 BEQ 4$ sSKIP NEXT INSTRUCTION IF RX_ENABLE CLEAR. 
ats 024522 050105 BIS R1,R5 sLOG RX ENABLE BIT SET FOR SELECTED LINE. 
3* 
5675 ; Clear RX_ENBLE on lines that have a corresponding bit set in the rx disable 
ser? ; line bit map. 
be 
5678 024524 030100 4$: BIT R1,R0 sCHECK STATE OF DISABLE LINE BIT MAP. 
5679 024526 001402 BEQ 6$ sBRANCH IF THIS LINE TO REMAIN UNALTERED. 
5680 024530 042712 000004 BIC *BIT2,(R2) s;CLEAR RX_ENABLE BIT ON SELECTED LINE. 
5681 024534 005204 6$: INC R4 sPREPARE TO SELECT REGISTERS FOR NEXT LINE. 
5682 024536 006301 ASL R1 ;SHIFT BIT MAP FOR NEXT LINE. 
5683 024540 005303 DEC R3 sDECREMENT LINE NUMBER. 
vee 024542 001362 BNE 2s ;LOOP TO CHECK NEXT LINE. 
5686 024544 60$: PASS R5 sRESTORE GPRS,EXCEPT 
024544 010566 000014 MOV RS,RSSLOTC SP) sPUT RS IN STACK SLOT. 
024550 004736 JSR PC ,ACSP)+ ;RETURN TO PREGOS SUBRT. 
5687 sRS - PREVIOUS STATES OF ALL RX_ENABLE BITS. 
5688 024552 000207 RTS PC 
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GLOBAL SUBROUTINE 


$713 


5714 
$715 
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024554 
024554 
024560 
024562 
024566 
024572 
024576 
024602 


024604 
024610 
024614 
024616 


024620 
024622 
024624 
024630 
024632 
024634 
024636 


024640 


024640 
024644 


024646 


155372 
000004 


000004 


000014 


- RXENBL - 


-SBTTL GLOBAL SUBROUTINE - RXENBL - 

see SOO6 606666066006 66006000 066606 066046000006 0600000006 0000 0000060000040008008 
3¢ - Enable Receiver - 

34 This subroutine is used to enable reception on selected lines by 

af setting the associated RX.ENABLE bit on the DUT. 

;* 

3@ INPUTS RS_- Bit’s set correspond to lines on which to set RX.ENABLE. 
1 CSRA - Contains the eddress of the DUT CSR. 

;* IESTAT - Contains the state of TXIE and RXIE bits in the CSR. 
3% NUMLNS - Equated to be the maximum number of lines available. 
34 LNCTRA - Contains the address of the LNCTRL register. 

3% 

3# OUTPUTS RS _- Bit's set indicate previously disabled lines. 

3¢ LNCTRA - The state of the RX.ENABLE bit may be altered. 

34 The contents of the IND.ADD.REG field in the CSR are destroyed. 
3* 

3* CALLING SEQUENCE: JSR PC ,RXENBL 

3% 

3;* COMMENTS 

3* 


3* SUBORDINATE ROUTINES CALLED: NONE. 
b- > SO866860606606 06064666000 000606 6000000006 0000 00000006 06000000000000000000008 


RXENBL:: SAVE 


sSAVE CONTENTS OF GPRS RO THRU RS. 


JSR RS ,PREGOS sCALL REGISTER SAVE SUBRT. 
RS ,RO sCOPY BIT MAP OF LINES TO ENABLE. 
*BITO,R1 sINITIALIZE THE SELECTED LINE BIT MASK. 
LNCTRA,R2 sGET THE ADDRESS OF THE LNCTRL REGISTER. 
@NUMLNS , R3 sGET MAXIMUM LINE NUMBER. 
IESTAT,R4 sGET THE STATES OF THE INT ENABLE BITS. 
RS sCLEAR RX.ENABLE BIT LOG OF DISABLED LINES. 


3¢ 
; Select every line in turn,and log any RX.ENBLE bit thet is clear. 


2$: MOV 


R4,8CSRA sWRITE TO DUT CSR TO SELECT LINE REGISTERS. 
#B1T2,(R2) sCHECK STATE OF RX.ENABLE BIT ON SELECTED LINE. 
4$ sSKIP NEXT INSTRUCTION IF RX.ENABLE SET. 

R1,RS sLOG RX ENABLE BIT CLEAR FOR SELECTED LINE. 


2 
s Set RX.ENBLE on lines that have a corresponding bit set in the rx enable 


; line bit map. 


RTS 





R1,RO sCHECK STATE OF RX.ENABLE LINE BIT MAP. 

6$ sBRANCH IF THIS LINE TO REMAIN UNALTERED. 
*BIT2,(R2) sENABLE RECEPTIONON SELECTED LINE. 

R4 sPREPARE TO SELECT REGISTERS FOR NEXT LINE. 
R1 sSHIFT BIT MAP FOR NEXT LINE. 

R3 sDECREMENT LINE NUMBER. 

2s sLOOP TO CHECK NEXT LINE. 

RS sRESTORE GPRS,EXCEPT 


MOV RS ,RSSLOT( SP) sPUT RS IN STACK SLOT. 
JSR PC ,@(SP)+ sRETURN TO PREGOS SUBRT. 
sRS_- LINE BIT MAP CORRESPONDING TO THE 
- ; PREVIOUS LINES THAT WERE DISABLED. 
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SEQ 0150 
GLOBAL SUBROUTINE - RXIEO - 
5744 -SBTTL GLOBAL SUBROUTINE - RXIEO - 
5745 5O¢ C8O666606066060606000000000000000000 0000 000000000006000000000000000000000008 
5746 34 - RECEIVER INTERRUPT DISABLE - 
dee ;* This routine is used to disable receiver interrupts in the DHV11-M. 
3* 
5749 3 INPUTS: NONE . 
5750 3* 
5751 3# OUTPUTS: The RX.INT.ENBL bit is cleared in the DUT CSR. 
5752 38 IESTST -contains the updated status of the TX and RX interrupt 
5753 3* enable bits. 
5754 3* 
deny 3# CALLING SEQUENCE: JSR PC ,RXIEO 
7 
5757 3* COMMENTS: The contents of the indirect address register field in 
de 3% the DUT CSR ere destroyed. 
3* 
5760 3* SUBORDINATE ROUTINES CALLED: NONE. 
S761 3-- SEREEEEEEEEEEEESEEEEED ODDS OS OO 06 $000.06 0004000006 0006 000000 00000000000008408 
5762 024650 010046 RXIEO:: MOV RO,-(SP) sSAVE CONTENTS OF RO ON THE STACK. 
5763 024652 106746 MFPS -(SP) sSAVE PROCESSOR PRIORITY ON STACK. 
5764 024654 106427 000340 MTPS #@PRIO7 sIGNORE ANY INTERRUPT THAT MAY BE GENERATED. 
5765 024660 042737 137777 002234 BIC #137777, IESTAT ;CLEAR RX.INT.ENBL BIT IN IESTAT. 
5766 024666 013777 002234 155306 MOV IESTAT,@CSRA s;DISABLE RX INTERRUPTS. 
5767 024674 106426 MTPS (SP)+ sENABLE INTERRUPTS TO THE PROCESSOR AGAIN. 
5768 024676 012600 MOV (SP)+,RO sRESTORE RO. 
5769 024700 000207 RTS PC 
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SEQ 0151 
GLOBAL SUBROUTINE - RXIE1 - 

5771 -SBTTL GLOBAL SUBROUTINE - RXIE1 - 
5772 PEeMCP TIT i titi titi titi it iitititi itt titi tT TT TTT TTT TTT TTT TTT TTT TTT 
5773 3% - RECEIVER INTERRUPT ENABLE - 
Lins 3% This routine is used to enable receiver interrupts in the DHV11-M. 

3% 
5776 3 INPUTS: NONE . 
5777 34 
5778 3* OUTPUTS: The RX.INT.ENBL bit is set in the DUT CSR. 
5779 34 IESTST -contains the updated status of the TX and RX interrupt 
5780 ;* enable bits. 
5781 i* 
re 3# CALLING SEQUENCE: JSR PC ,RXIEL 

ja 
5784 3* COMMENTS: The contents of the indirect address register field in 
5785 3* the DUT CSR are destroyed. 
5786 :* 
5787 3* SUBORDINATE ROUTINES CALLED: NONE. 
5788 PPM I Ori ri irrr iret ir iti tt iti t itt tt ii tit ti ttt tt TTT TTT TTT TTT TTT TTT TTT TT TTT 
5789 
5790 024702 052737 000100 002234 RXIE1:: BIS @BITO6,IESTAT ;SET RX.INT.ENBL BIT IN IESTAT. 
5791 024710 042737 137677 002234 BIC #137677,IESTAT ;CLEAR ALL OTHER BITS, EXCEPT TX AND RX I.E. 
5792 024716 013777 002234 155256 MOV IESTAT,@CSRA sENABLE RX INTERRUPTS. 
5793 024724 000207 RTS PC 
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SEQ 0152 
GLOBAL SUBROUTINE - SAVBMP - 
5795 -SBTTL GLOBAL SUBROUTINE - SAVBMP - 
5796 F¢¢ SOOROOOOES 000606 060000060600000606 0000000006 0000000000000000000000000000008 
5797 ;* - Seve BMP codes Routine - 
5798 3% This routine saves the parameter passed in, onto the BMP code queue 
dbs 3% together with the number of the currently executing test. 
3% 
5801 3;* INPUTS: R2 - Contains the BMP code that is to be placed on the queue. 
$802 3* BMPCQP - Contains address of next location in the bmp queue. 
5803 34 BMPCQB - Lebel at base of the BMP code queue. 
5804 3% BMPCQE - Label of next location after the end of the BMP queue. 
io i* TSTNUM - Contains the number of the current test. 
3% 
5807 3# OUTPUTS: BMPCQP - Incremented by 4. 
poss 3% The contents of the BMP code queue are updated. 
3* 
44 3* CALLING SEQUENCE: JSR PC, SAVBMP 
11 3* 
5812 3 COMMENTS: If the overflow occurs then the lest location will be 
peoz 3* overwritten by any subsequent attempts to update the queue. 
14 ;* 
5815 3# SUBORDINATE ROUTINES CALLED: None. 
5816 i-- SRORGOE6E 4666460606 06 06 040060006 060006 06 048000404 kkk keke ee eee 
5817 
5818 024726 SAVBMP:: SAVE sSAVE CONTENTS OF GPRS RO THRU RS. 
024726 004537 005326 JSR RS ,PREGOS sCALL REGISTER SAVE SUBRT. 
5819 024732 013704 002512 MOV BMPCQ@P ,R4 sGET THE POINTER TO THE NEXT LOCATION IN QUEUE. 
5820 024736 113724 002224 MOVB TSTNUM,(R4)+ sSAVE THE CURRENT TEST NUMBER ON THE QUEUE. 
5821 024742 005204 INC R4 sINCREMENT THE POINTER TO GIVE AN EVEN ADDRESS. 
5822 024744 042702 177400 BIC #177400,R2 sCLEAR THE UNWANTED BITS FROM THE BMP CODE. 
5823 024750 010224 MOV R2,(R4)+ sSAVE THE BMP CODE ON THE QUEUE. 
5824 024752 020427 002714 CMP R4 , @BMPCQE sCHECK IF OVERFLOW WILL OCCUR THE NEXT TIME. 
5825 024756 103402 BLO 2s sGO SAVE THE POINTER IF WE WILL NOT OVERFLOW. 
5826 024760 162704 000004 SUB 04,R4 sRESET THE POINTER TO THE LAST LOCATION IN QUE. 
at 024764 010437 002512 2s: MOV R4,BMPCQP sSAVE THE POINTER. 
82 
5829 024770 60$: PASS sRESTORE GPRS. 
024770 004736 JSR PC ,@(SP)+ sRETURN TO PREGOS SUBRT. 
5830 024772 000207 RTS PC 





— 








CVDHCDO DHV11-M FUNC TST PART 3 MACRO VOS.00 Thursday 25-Apr-85 16:37 Page 108 


CVDHCDO DHV11-M FUNC TST PART 3 MACRO VOS.00 Thursday 25-Apr-85 16:37 Page 108 


SEQ 0153 
GLOBAL SUBROUTINE - SKPSTS - 
5832 -SBTTL GLOBAL SUBROUTINE - SKPSTS - 
5833 5 ++ SHOOSEED OOOO E4046 660008 060000000806 00 000000 0000000000000000000000000000088 
5834 a4 - Skip Selftest Routine - 
5835 3* This subroutine is used to skip the selftest after a DUT reset has been 
5836 7 initiated. It must be entered immediately after setting the DUT Master 
5837 i* Reset routine or after the execution of a bus reset (because of timing 
5838 3% considerations). 
5839 3* 
5840 3 INPUTS: CSRA - Contains address of the DUT CSR. 
Seas 3% TXBFCA - Contains address of DUT DMA Buffer Count register. 
3% 
soy 3# OUTPUTS: Skip selftest codes are written to the DUT registers. 
7% 
5845 3* CALLING SEQUENCE: JSR PC ,SKPSTS 
5846 :* 
5847 3* COMMENTS: 
5848 i* 
5849 3# SUBORDINATE ROUTINES CALLED: DELAY. 
5850 Flaca nett TL LLL TTT TTT TTT TTT TTT TT TTT TTT TT TTT Tee 
$851 
5852 024774 SKPSTS:: SAVE ;SAVE CONTENTS OF GPRS RO THRU RS. 
024774 004537 005326 JSR »PREGOS s;CALL REGISTER SAVE SUBRT. 
$5853 025000 012704 000012 MOV #10. ,R4 sPASS DELAY VALUE OF 10 MILLI-SECONDS. 
— 025004 004737 017354 JSR PC ,DELAY sDELAY FOR 10 MILLI-SECONDS. 
3¢ 
pees ; Write skip self-test code (52525) to all the indexed DUT Registers. 
ge 
5858 025010 012701 000050 MOV @NUMLNS!BITOS,R1 ;FORM IND.ADR.REG FIELD (PLUS M.R. BIT) WORD. 
5859 sTHE ABOVE INCLUSION OF THE M.R. BIT IS NECESSARY BECAUSE OF THE 
5860 ; LACK OF A M.R. BIT WRITE LOCK-OUT ON THE DHV11-M. 
5861 025014 012703 052525 MOV #52525 ,.R3 sINITIALISE THE SKIP SELF-TEST CODE. 
5862 025020 005301 4$: DEC R1 sSELECT THE NEXT SET OF DEVICE REGISTERS. 
$863 025022 013704 002202 MOV CSRA,R4 sGET THE ADDRESS OF THE CSR OF THE DUT. 
5864 025026 010124 MOV R1,CR4)+ sSELECT A BANK OF DUT REGISTERS. 
5865 025030 010324 6$: MOV R3,CR4)+ sWRITE THE CODE TO A DUT REGISTER. 
5866 025032 020437 002220 CMP R4,TXBFCA sCOMPARE POINTER WITH LAST REGISTER ADDRESS. 
5867 025036 103774 BLO 6$ sLOOP IF NOT ALL REGS DONE IN THIS BANK. 
5868 025040 032701 000017 BIT #17,R1 sTEST FOR IND.ADR.REG FIELD DECREMENTED TO 0. 
++ 44 025044 001365 BNE 4s sLOOP UNTIL ALL REGISTERS CONTAIN THE CODE. 
5871 025046 60$: PASS sRESTORE GPRS. 
025046 004736 JSR PC ,8(SP)+ sRETURN TO PREGOS SUBRT. 
5872 025050 000207 RTS PC 
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SEQ 0154 
GLOBAL SUBROUTINE - SPLSUP - 
5874 -SBTTL GLOBAL SUBROUTINE - SPLSUP - 
5875 bO¢ €06060660066060006000000000000000600000000000000000000000000000000000000006 
oda pe - SPLIT SPEED TRANSMISSION/RECEPTION SET-UP - 
3% 
5878 3* This routine is used to initialise both the DUT end the 
5879 34 transmission/reception control peremeters to the correct 
sot pe state, prior to split speed trensmission/reception. 
1 3% 
5882 3 INPUTS: RO - TX,RX LPR contents for lines in group II. 
5883 ;@ Rl - TX,RX LPR contents for lines in group I. 
5884 3% R2 - Stert address of date pattern to transmit. 
5885 74 R3 - Number of time dete pattern to be TX on lines in LINGRP1. 
5886 34 R4 - Number of time date pattern to be TX on lines in LINGRP2. 
5887 34 ACTLNS - Contains e bit map of ell currently active lines. 
5888 34 LGRP1M - Contains the bit map of line group I lines. 
5889 3* LOPBCK - Conteins the . of loopback mode selected. 
bese 3* CBB - Label at base of TX/RX control block. 
1 3* 
5892 3# OUTPUTS: The contents of the Control Block ere destroyed. 
5893 34 The indirect address field of the DUT CSR may be destroyed. 
5894 34 The DUT’s LPR’s and LNC’s may be modified. 
5895 34 The following pointers and counters ere initialised; 
5896 3* CHCNT , CHRTOT ,DPEND ,OPLEN, EXCNT ,RXCNT ,RXDONF ,RXPTR, TXCNT, 
5897 ;8 TXDONF , TXPTR, TXRXL. 
5898 3* 
ated 3# CALLING SEQUENCE: JSR PC, SPLSUP 
3* 
5901 3 COMMENTS: This routine should be called twice during the testing of 
5902 34 the split speed capabilities of the DUT. 
5903 34 So that both line groups ere tested on transmission and 
5904 ;* reception. 
5905 3% eg. Ri - LPR contents for lines in LGRP2M,TX*Y,RX=Z baud. 
5906 3% R2 - LPR contents for lines in LGRP1M,1TX=Z,RX*Y beud. 
5907 73 R3 - Repeat TX on lines in line group 1 = X times. 
5908 3* R4 - Repeat TX on lines in line group 2 = W times. 
5909 3% JSR = PC,SPLSUP + do set-up. 
5910 3% Execute test for the above set-up. 
5911 3* Swap the contents of Ri and R2. 
5912 3* Swap the contents of R3 end R4. 
5913 3% Ri - LPR contents for lines in LGRP2M,TX=Z,RX=Y baud. 
5914 34 R2 _ LPR contents for lines in LGRPIM,TX*Y,RX*Z baud. 
5915 3* R3 - Repeat TX on lines in line group 1 = W times. 
5916 ;* R4 - Repeat TX on lines in line group 2 = X times. 
5917 34 JSR PC,SPLSuUP i:do set up agein. 
+404 34 Execute test again. 
1 3% 
5920 3# SUBORDINATE ROUTINES CALLED: CONMAP,RXDSBL,RXENBL , TXRINI. 
5921 b-- S866666060666606 06 66000006 0600000000060060000006000000000000000000000000006 
5922 
5923 025052 SPLSUP:: SAVE sSAVE CONTENTS OF THE GPR’S RO THRU RS. 
025052 004537 005326 JSR RS ,PREGOS ;CALL REGISTER SAVE SUBRT. 
5924 025056 010037 025346 MOV RO,70$ sSAVE LPR PARAMETER FOR LINE GRP2. 
5925 025062 010137 025350 MOV R1,72$ sSAVE LPR PARAMETER FOR LINE GRP1. 
5926 025066 005037 002504 CLR TXDONF sCLEAR THE TX DONE FLAGS FOR ALL LINES. 
meee 025072 005037 002506 CLR RXDONF sCLEAR THE RX DONE FLAGS FOR ALL LINES. 
3¢ 
5929 ; Set up the Transmission/Reception Control block to initielise the lines 
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rT) f+ “a T) tT) 


5930 
5931 
5932 025076 
5933 025102 
5934 025106 
5935 025112 
5936 025114 
5937 025120 
5938 025122 
5939 025126 
5940 025132 
5941 025136 
5942 025140 
5943 
5944 
5945 


5946 
tod 025144 


5951 025150 
5952 025154 
5953 025156 
5954 025162 
S955 025164 
5956 025170 
5957 025172 
5958 025176 
5959 025202 
5960 025206 
5961 025210 


025214 





012710 


004737 


012701 


026114 


- SPLSUP - 


003124 


3¢ 


in group II. 


CVOHCDO DHV11-M FUNC TST PART 3 MACRO VOS.00 Thursday 25-Apr-85 16:37 
GLOBAL SUBROUTINE 


LGRP1M,(CRO)+ 
LOPBCK ,CRO)+ 


RO 
@2,(RO) 
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SEQ 0355 


sSET CONTENTS OF LPR PARAMS IN TX/RX C.BLK. 
{GET BASE ADDRESS OF CONTROL BLOCK. 

sLNCTRL PARAMETER, ENABLE RECEIVERS. 

sSTART ADORESS OF DATA PATTERN. 

sDATA PATTERN LENGTH SET TO 16. 

sNUMBER OF DATA PATTNS TO TRANSMIT ON LINGRP2. 
sBIT MAP OF LINES TO INITIALISE. 

sCLEAR THE UNWANTED LINES FROM BIT MAP. 

sSET LOOPBACK MODE. 

sINCREMENT ADDRESS TO ACCESS NEXT WORD. 

sSET OFFSET FOR EACH TRANSMISSION START TO 2. 


s Initialise the DUT and the associated pointers end counters, to the stete 
; dictated by the contents of the TX/RX control block. 


sINITIALISE OUT. 


3¢ 
s Set up Control block for lines in group I. 


3¢ 


JSR PC, TXRINI 
MOV @CBB .RO 
MOV R1,CRO)+ 
MOV @4,CRO)+ 
MOV R2,CRO)+ 
MOV #16. ,CRO)+ 
MOV R3.CRO)+ 
MOV ACTLNS , (RO) 
BIC LGRP2M,CRO)+ 
MOVB LOPBCK,(RO)+ 
INC RO 
MOV #2,(RO) 


sGET START ADDRESS OF CONTROL BLOCK. 

SET LPR PARAMETER FOR LINES TO RECEIVE DATA. 
sLNCTRL PARAMETER, ENABLE RECEIVERS. 

sSTART ADDRESS OF DATA PATTERN. 

;DATA PATTERN LENGTH SET TO 16. 

sNUMBER OF DATA PATTNS TO TRANSMIT ON LINGRP1. 
sBIT MAP OF LINES TO INITIALISE. 

sCLEAR THE UNWANTED LINES FROM BIT MAP. 

sSET LOOPBACK MODE. 

sINCREMENT ADDRESS TO ACCESS NEXT WORD. 

sSET OFFSET FOR EACH TRANSMISSION START TO 2. 


:; Initialise the DUT and the associated pointers and counters, to the stete 
s dicteted by the contents of the TX/RX control block. 


JSR 


PC, TXRINI 


sINITIALISE DUT. 


* set- -up the required LPR peremeters needed for the correct reception of dete 


3 on associated in-active lines. 


3¢ 
s Initielise LPR peremeters for line group 1. 


3¢ 
s Initielise LPR parameters for line group 2. 


@MAPLNS ,R1 
ACTLNS ,R2 


CB 
72%, CBLPRA 
PC, TXRINI 


ee DS SL ER 


sSET UP BIT MAP CORRESPONDING A ALL LINES. 
sGET THE ACTIVE (TX) LINE BIT MA 

sGENERATE A BIT MAP OF NONE EXISTANT LINES. 
sGENERATE A BIT MAP OF INACTIVE LINES. 
sCLEAR ANY “NONE EXISTANT” INACTIVE LINES. 
sONLY PASS LGRP1 ASSOCIATED LINE BIT MAP. 
sSET UP BIT MAP IN CONTROL BLOCK. 

sCLEAR REPEAT TX COUNT IN CONTROL BLOCK. 
sSET-UP COMPLEMENTARY LPR PARM FOR LGRP2. 
sINITIALISE INACTIVE LINES IN LGRP2. 
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g@ 
sGET THE ACTIVE (TX) LINE BIT MAP. 
sGENERATE A BIT MAP OF INACTIVE LINES. 
sCLEAR ANY NONE EXISTANT INACTIVE LINES. 
sONLY PASS LGRP2 ASSOCIATED LINE BIT MAP. 
sSET-UP BIT MAP IN CONTROL BLOCK. 
sSET-UP COMPLAMENTARY LPR PARAM FOR LGRP1. 

PC, TXRINI sINITIALISE INACTIVE LINES IN LGRP1. 


3° 
s Diseble Receivers on all lines to ensure thet only the receivers of the 
s essociated active (TX) lines ere enabled.(steggered loopback ) 

s Re-eneble reception on the correct essocieated lines. 


i- 
MOV @MAPLNS RS sSET-UP BIT MAP FOR ALL LINES. 
JSR PC .RXDSBL sDISABLE RX ON ALL LINES. 


3¢ 

s Enable receivers on associated (RX) lines. 

37 
MOV ACTLNS RS sGET ACTIVE (TX) LINE BIT MAP. 
JSR » CONMAF sGENERATE AN ASSOCIATED (RX) LINE BIT MAP. 
JSR PC ,RXENBL sENABLE RECEIVERS ON ASSOCIATED LINES. 


608: PASS sRESTORE GRP'S. 
JSR PC .@(SP)+ sRETURN TO PREGOS SUBRT. 
RTS +s 


6011 025346 708: -WORD sLOCAL STORAGE OF LPR PARAMETER LGRP2. 


6012 025350 000000 72$: -WORD 0 sLOCAL STORAGE OF LPR PARAMETER LGRP1. 
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SEQ 0157 
GLOBAL SUBROUTINE - STPSW - 
6014 -SBTTL GLOBAL SUBROUTINE - STPSW - 
6015 gee OOOO OO EO OEO6 466660000666 006066006606000000060000000000080000000000080088 
6016 36 - SET PROCESSOR STATUS WORD - 
oat s@ THIS ROUTINE SETS THE PSW TO THE CONTENTS OF Ri. 
3* 
6019 :¢ INPUTS: Ri - CONTAINS THE NEW PSW SETTINGS 
6020 3¢@ 
Sone 3@ OUTPUTS: PSW - SET TO THE CONTENTS OF R1 
a 
ta 3@ CALLING SEQUENCE : JSR PC, STPSW 
58 
6025 3¢ COMMENTS : USED IN THE DMA ADDRESS TEST TO SET THE PROCESSOR 
oe 36 PRIORITY WITHOUT MAKING A CALL TO THE ORS. 
34 
6028 3¢ SUBROUTINES CALLED: NONE . 
6029 5 OOOO OOO660 48066066 600060 0006060066 0006060000000600006060080000000000000888 
6030 
6031 025352 STPSW:: SAVE 
025352 004537 005326 JSR RS ,PREGOS sCALL REGISTER SAVE SUBRT. 
6032 025356 010146 MOV R1,-(SP) sPUSH THE NEW PSW CONTENTS ONTO THE STACK 
6033 025360 012746 025366 MOV ADDR, -( SP) sPUSH THE NEW PC VALUE ONTO THE STACK 
6034 025364 000002 RTI sLOAD THE NEW PC AND PSW 
6035 025366 ADDR: PASS ; 
025366 004736 JSR PC ,@(SP)+ sRETURN TO PREGOS SUBRT. 
6036 025370 000207 RTS PC sRETURN 
6037 
6038 
6039 
6040 


LL 
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SEQ 0158 
GLOBAL SUBROUTINE - STPSW - 
6042 
6043 -SBTTL GLOBAL SUBROUTINE - SWAPO - 
6044 tee OOOO 66660608 0660000606 6066660000000666060006000000000000006066000000000060006 
6045 34 - Swap GPRes With GPR Set 0 Routine - 
6046 34 This subroutine swaps the present contents of GPRs Ri thru RS with 
6047 ;@ the contents of the number zero GPR save area. The contents of RO 
Sees 34 ere not altered by this subroutine. 
3% 
6050 3@ INPUTS: GPR contents Ri thru R5. 
6051 38 GPRSOB - Lebel et base of GPR save area number zero. 
6052 yf 
6053 3@ OUTPUTS: Ri thru RS contain the previous contents of GPR save sree 
6054 34 zero words 1 thru 5 respectively. 
6055 34 GPRSO - GPR seve erea 0 words 1 thru 5, contain previous 
— 3 contents of GPRs R1 thru RS respectively. 
7€ 
oo 3@ CALLING SEQUENCE: JSR PC , SWAPO 
34 
6060 3 COMMENTS: The state of the CARRY flag is not alterres by this routine. 
6061 34 
6062 3# SUBORDINATE ROUTINES CALLED: None. 
6063 3-- adaetateecateteeeenehe LLL LLL LLL LLL TLL iti tit TT TT TTT ete TT tt 
6064 
te 025372 010046 SWAPO:: MOV RO,-(SP) sSAVE THE CONTENTS OF RO. 
3? 
od ; Load the stack from the GPRs. 
5° 
6069 025374 010146 MOV R1,-(SP) sSAVE THE CONTENTS OF R1. 
6070 025376 010246 MOV R2,-(SP) sSAVE THE CONTENTS OF R2. 
6071 025400 010346 MOV R3,-C(SP) sSAVE THE CONTENTS OF R3. 
6072 025402 010446 MOV R4,-(SP) ;SAVE THE CONTENTS OF R4. 
Pore 025404 010546 MOV RS,-(SP) sSAVE THE CONTENTS OF RS. 
4 3¢ 
or ; Load the GPRs from the GPR save area 0. 
6076 s- 
6077 025406 012700 002466 MOV @GPRSOB,RO sGET THE BASE ADDPESS OF GPR SAVE AREA 0. 
6078 025412 012001 MOV (RO)+,R1 sLOAD R1 WITH GPR SAVE AREA 0 WORD 1. 
6079 025414 012002 MOV (RO)+,R2 sLOAD R1 WITH GPR SAVE AREA 0 WORD 2. 
6080 025416 012003 MOV CRO)+,R3 s;LOAD Ri WITH GPR SAVE AREA 0 WORD 3. 
6081 025420 012004 MOV CRO)+,R4 sLOAD R1 WITH GPR SAVE AREA 0 WORD 4. 
oer 025422 012005 MOV (RO)+, RS sLOAD R1 WITH GPR SAVE AREA 0 WORD S. 
6 3° 
- ; Load the GPR save area 0 from the stack. 
608 s- 
6086 025424 012640 MOV (SP)+,-CRO) sLOAD GPR SAVE AREA 0 WORD 5 WITH SAVED RS. 
6087 025426 012640 MOV (SP)+,-CRO) sLOAD GPR SAVE AREA 0 WORD 4 WITH SAVED R4. 
6088 025430 012640 MOV (SP)+,-CRO) sLOAD GPR SAVE AREA 0 WORD 3 WITH SAVED R3. 
6089 025432 012640 MOV (SP)+, -CRO) sLOAD GPR SAVE AREA 0 WORD 2 WITH SAVED R2. 
zor 025434 012640 MOV (SP)+,-CRO) sLOAD GPR SAVE AREA 0 WORD 1 WITH SAVED R1. 
cook 025436 012600 MOV (SP)+,RO sRESTORE THE INITIAL VALUE OF RO. 
6094 025440 000207 RTS PC 
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SEQ 0159 
GLOBAL SUBROUTINE - TXDONE - 
6096 -SBTTL GLOBAL SUBROUTINE - TXDONE - 
6097 gre SOOO 660660606060 66000606666600000866066000060666600006066660600000060080006 
6098 ;4 - TRANSMISSION DONE - 
6099 ;¢ This subroutine is used in the transmission/reception tests to ellow 
— 34 time for transmission to complete on outstanding lines. 
3% 
6102 3@ INPUTS: ACTLNS - Contains bit mep of all active lines. 
6103 34 TXDONF - TX done fl » set for lines that have sent ell chars. 
esas i* CHCNT - Table contaning the number of chars to be TX'd. 
;* 
6106 3% 
rd 3@ OUTPUTS: Transmission interrupts are disebled. 
3% 
aes 3@ CALLING SEQUENCE: JSR PC , TXDONE 
il 34 
6i11 3@ COMMENTS: 
6112 Hd 
6113 q s# SUBORDINATE ROUTINES CALLED: MSLOOP,MUL16U. 
6114 t-- SOSEEEEOOEEE EEE EEEEEEEE OG 46 O40000660060600000006006000060606000000060040808 
6115 i 
6116 025442 TXDONE:: SAVE sSAVE CONTENTS OF GPRS RO THRU RS. 
at 025442 004537 005326 , JSR RS ,PREGOS ;CALL REGISTER SAVE SUBRT. 
6 3¢ 
6118 ; Check if all active lines have completed transmission. 
6119 ) ; If any have not yet completed, determine the tx char count for e 
6120 s line that has outstanding characters to transmit. Using this value, 
tye s calculete the time-out value needed at the currently ealested baud rate. 
§- 
6123 025446 013703 002174 MOV ACTLNS ,R3 ;GET THE ACTIVE LINE BIT MAP. 
6124 025452 013702 002504 MOV TXDONF ,R2 sGET THE BIT MAP OF LINES THAT HAVE COMPLETED. 
6125 025456 040203 BIC R2,R3 sGENERATE A BIT MAP OF LINES THAT ARE STILL Tx. 
6126 025460 005703 TST R3 sCHECK IF ALL LINES HAVE COMPLETED Tx. 
rey tf 025462 001427 BEQ 6$ 3GO DISABLE TX INTERRUPTS IF ALL DONE. 
61 3° 
6129 i Find @ line that has not completed transmission. 
6130 ; Obtain the expected character count for that line (which is the same for 
6131 ; all other lines with outstanding tx's). 
Hp ; Calculate time-out value. 
61 s- 
6134 025464 005004 CLR R4 sCLEAR LINE NUMBER COUNTER. 
6135 025466 012702 000001 MOV #1,R2 sSELECT BIT MAP FOR THE FIRST LINE. 
6136 025472 030203 2s: BIT R2,R3 sSEE IF THIS LINE HAS COMPLETED. 
6137 025474 001003 BNE 4s s;BRANCH IF THIS LINE HAS NOT COMPLETED Tx. 
6138 025476 006102 ROL R2 sSHIFT THE LINE BIT MAP FOR THE NEXT LINE. 
6139 025500 005204 INC R4 sINCREMENT THE LINE NUMBER COUNTER. 
6140 025502 000773 BR 2s sLOOP TO CHECK THE NEXT LINE. 
6141 025504 006304 4$: ASL Ra sLINE NUMBER X 2 TO OBTAIN OFFSET INTO TABLE. 
6142 025506 016401 003444 MOV CHCNTBC(R4),R1 sGET THE EXPECTED NUMBER OF CHARS TO BE TX'D. 
6143 025512 013702 002242 MOV RXTOUT ,R2 :GET THE CURRENT TIME-OUT VALUE FOR ONE CHAR. 
6144 025516 004737 022030 JSR PC ,MUL16U sCNUMBER OF CHARS TO TX) X CTIME-OUT OF 1 CHAR) 
aoe 025522 006301 ASL R1 sMULTIPLY DELAY TIME BY 2 TO GIVE A SAFE VALUE. 
z¢ 
6147 ; Wait for all oustanding transmissions to complete or time-out. 
ef ; Disable all transmission interrupts. 
i 
6150 025524 013702 002174 MOV ACTLNS ,R2 sPASS A BIT MAP OF THE BITS TO TEST. 
6151 025530 010203 MOV R2,R3 sPASS THE EXPECTED STATE OF THE TXDONF. 


—— 
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SEQ 0160 
GLOBAL SUBROUTINE - TXDONE - 

6152 025532 012704 002504 MOV @TXDONF ,R4 sPASS THE ADDRESS OF THE WORD TO TEST. 

6153 025536 004737 021600 JSR PC ,MSLOOP sWAIT FOR TIME-OUT OF TX COMPLETION. 

ates 025542 004737 026036 6$: JSR PC, TXIEO sDISABLE ALL TX INTERRUPTS. 

6 

6156 025546 60$: PASS sRESTORE GPRS. 

025546 004736 JSR PC ,@(SP)+ sRETURN TO PREGOS SUBRT. 
6157 025550 000207 RTS PC 
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SEQ 0161 
GLOBAL SUBROUTINE - TXDONE - 
6159 
6160 -SBTTL GLOBAL SUBROUTINE - TXDSBL - 
6161 5% S0066866 66 06006000000606006060066660660066600600000000000000000000000000008 
6162 3* - Transmitter Disable - 
6163 3* This subroutine is used to disable transmission on selected lines by. 
see 3* clearing the associated TX.ENABLE bit on the DUT. 
6 3* 
6166 3* INPUTS: RS - Bit’s set correspond to lines on which to clear TX.ENABLE. 
6167 34 CSRA - Contains the address of the DUT CSR. 
6168 3* IESTAT - Contains the state of TXIE and RXIE bits in the CSR. 
6169 3* NUMLNS - Equated to be the maximum number of lines available. 
cit 34 TXAD2A - Contains the address of the TBUFFAD2 register. 
3% 
6172 3# OUTPUTS: RS - Bit's set indicate the initial states of all TX.ENBLE bits. 
6173 34 TBUFFAD2 - The state of the TX.ENBLE bit may be altered. 
hs :* The contents of the IND.ADD.REG field in the CSR are destroyed. 
61 3* 
6176 3# CALLING SEQUENCE: JSR PC, TXDSBL 
6177 :* 
6178 3 COMMENTS: 
6179 i* 
6180 3# SUBORDINATE ROUTINES CALLED: NONE. 
6181 b-- S0R666666406 06660606 0606000600600060000000 00040000 0000060844000000000000008 
6182 
6183 025552 TXDSBL:: SAVE sSAVE CONTENTS OF GPRS RO THRU RS. 
025552 004537 005326 JSR RS ,PREGOS :CALL REGISTER SAVE SUBRT. 
6184 025556 010500 MOV R5,RO sCOPY BIT MAP OF LINES TO DISABLE TRANSMISSION. 
6185 025560 012701 000001 MOV *BITO,R1 sINITIALIZE THE SELECTED LINE BIT MASK. 
6186 025564 013702 002216 MOV TXAD2A ,R2 sGET THE ADDRESS OF THE TBUFFAD2 REGISTER. 
6187 025570 005202 INC R2 sGET THE ADDRESS OF THE MSBYTE OF TBUFFAD2 REG. 
6188 025572 012703 000010 MOV @NUMLNS , R3 sGET MAXIMUM LINE NUMBER PLUS ONE. 
6189 025576 013704 002234 MOV IESTAT ,R4 sGET THE STATES OF THE INT ENABLE BITS. 
tr 025602 005005 CLR RS sLOG POSSIBLE TX DISABLED ON ALL LINES. 
3¢ 
re | ; Select every line in turn, and log the state of each TX.ENABLE bit. 
61 a. 
6194 025604 010477 154372 2s: MOV R4,8CSRA sWRITE TO OUT CSR TO SELECT LINE REGISTERS. 
6195 025610 105712 TSTB = (R2) sCHECK STATE OF TX.ENABLE BIT ON SELECTED LINE. 
6196 025612 100001 BPL 4$ sSKIP NEXT INSTRUCTION IF TX.ENABLE CLEAR. 
6197 025614 050105 BIS R1,RS sLOG TX ENABLE BIT SET FOR SELECTED LINE. 
6198 s¢ 
6199 ; Clear TX.ENBLE on lines that have a corresponding bit set in the tx disable 
6200 : line bit map. 
6201 po 
6202 025616 030100 4$: BIT R1,RO sCHECK STATE OF DISABLE LINE BIT MAP. 
6203 025620 001402 BEQ 6$ sBRANCH IF THIS LINE TO REMAIN UNALTERED. 
6204 025622 142712 000200 BICB #BIT7,(R2) s;CLEAR TX.ENABLE BIT ON SELECTED LINE. 
6205 025626 005204 6$: INC R4 sPREPARE TO SELECT REGISTERS FOR NEXT LINE. 
6206 025630 006301 ASL R1 sSHIFT BIT MAP FOR NEXT LINE. 
6207 025632 005303 DEC R3 sDECREMENT LINE NUMBER. 
— 025634 001363 BNE 2$ sLOOP TO CHECK NEXT LINE. 
20 
6210 025636 60$: PASS R5 sRESTORE GPRS,EXCEPT 
025636 010566 000014 MOV RS,RSSLOTC SP) sPUT RS IN STACK SLOT. 
025642 004736 JSR PC ,@(SP)+ sRETURN TO PREGOS SUBRT. 
6211 sRS - PREVIOUS STATES OF ALL TX.ENABLE BITS. 
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GLOBAL SUBROUTINE 


L 
c 


025646 004537 005326 


6239 025654 012701 000001 
6240 025660 013702 002216 


6242 025666 012703 000010 
6243 025672 013704 002234 


6248 025700 010477 154276 


6258 025716 152712 000200 


025732 010566 000014 








- TXENBL - 


-SBTTL GLOBAL SUBROUTINE 


zee aciachatathncnthththtnthchttthceetheh theta tttLti Lit Li Lititi tit ttt Tt Titi TT TTT TT ttt 


SEQ 0162 


- TXENBL - 


3* - Transmitter Enable - 

3% This subroutine is used to enable transmission on selected lines by 
34 setting the associated TX.ENABLE bit on the DUT. 

3% 

3* INPUTS: RS _- Bit's set correspond to lines on which to set TX.ENABLE. 
3% CSRA - Contains the address of the DUT CSR. 

3* IESTAT - Contains the state of TXIE and RXIE bits in the CSR. 
3% NUMLNS - Equated to be the maximum number of lines available. 
34 TXAD2A - Contains the address of the TBUFFAD2 register. 

pe 

3# OUTPUTS: RS - Bit’s set indicate previously disabled lines. 

34 TBUFFAD2 - The state of the TX.ENBLE bit may be altered. 

34 The contents of the IND.ADD.REG field in the CSR are destroyed. 
;* 

3# CALLING SEQUENCE: JSR PC, TXENBL 

3* 

3# COMMENTS: 

3* 


s# SUBORDINATE ROUTINES CALLED: NONE. 
b-- SERREEEEEE EE EE O6 66646006 04 06000400606 06 0600000006 00000000 0000000000000000008 


TXENBL:: SAVE 
MOV RS,RO 
MOV #BITO,R1 
MOV ag oR 


MOV @NUMLNS, 
MOV aida oR 


3*¢ 


; Select every line in turn,and 


2s: MOV R4,9CSRA 
TSTB =CR2) 
BMI 4$ 
BIS R1,R5 


; Line bit map. 


4$: BIT R1,RO 
BEQ 6$ 
BISB #@BIT7,(R 
6$ INC R4 
ASL R1 
DEC R3 
BNE 2$ 


60$: PASS RS 


RTS PC 


JSR 
2 


R3 
4 


2) 


sSAVE CONTENTS OF GPRS RO THRU RS. 

RS ,PREGOS sCALL REGISTER SAVE SUBRT. 
sCOPY BIT MAP OF LINES TO ENABLE. 

sINITIALIZE THE SELECTED LINE BIT MASK. 

sGET THE ADDRESS OF THE TBUFFAD2 REGISTER. 

sGET THE ADDRESS OF THE MSBYTE OF TBUFFAD2 REG. 
sGET MAXIMUM LINE NUMBER. 

sGET THE STATES OF THE INT ENABLE BITS. 

;CLEAR TX.ENABLE BIT LOG OF DISABLED LINES. 


log any TX.ENBLE bit that is clear. 


sWRITE TO DUT CSR TO SELECT LINE REGISTERS. 
sCHECK STATE OF TX.ENABLE BIT ON SELECTED LINE. 
sSKIP NEXT INSTRUCTION IF TX.ENABLE SET. 

sLOG TX ENABLE BIT CLEAR FOR SELECTED LINE. 


3 
; Set TX.ENBLE on lines that have a corresponding bit set in the tx enable 


sCHECK STATE OF TX.ENABLE LINE BIT MAP. 
sBRANCH IF THIS LINE TO REMAIN UNALTERED. 
sENABLE TRANSMISSION ON SELECTED LINE. 
sPREPARE TO SELECT REGISTERS FOR NEXT LINE. 
sSHIFT BIT MAP FOR NEXT LINE. 

sDECREMENT LINE NUMBER. 

sLOOP TO CHECK NEXT LINE. 


sRESTORE GPRS,EXCEPT 

RS ,RSSLOTC SP) sPUT RS IN STACK SLOT. 
PC ,@(SP)+ sRETURN TO PREGOS SUBRT. 
sR5_- LINE BIT MAP CORRESPONDING TO THE 

; PREVIOUS LINES THAT WERE DISABLED. 
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GLOBAL SUBROUTINE 


L 
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025766 
025770 
025772 
025776 


004537 005326 
013705 002174 
005104 
040405 


005001 


010104 
006304 
016403 003204 
016402 003344 





- TXFRPR - 


SEQ 0163 
-SBTTL GLOBAL SUBROUTINE - TXFRPR - 
b¢¢ 060666666 0006006060006060600600060000000400000000000000000006000000000000006 
3@ - Transmit framming error data Routine - 
3% This routine is used to initiate DMA mode transmission 
3¢ in the Framming error test. It sends a single character DMA buffer on 
34 each active line in the bit map, to cause future TX interrupts which 
3% will continue the transmission if more than one buffer is to be sent. 
3* 
3* INPUTS: R4 - Contains the Lines on which TX is to take place. 
34 ACTLNS - Active lines bit map. 
34 BITTBL - Label of table of words each with a bit set. 
3% CSRA - Contains the address of the DUT CSR. 
3% DPENDB - Base of the data pattern end table Centry per line). 
34 OPLENB - Base of the date pattern length teble. 
;* IESTAT - Preserved states of the DUT interrupt enable bits. 
3% NUMLNS - Equated to number of lines on ea DUT. 
3% TXCNTB - Lable at base of the TX character counter table. 
34 TXPTRB - Label at base of the TX date pattern pointers table. 
3* 
3# OUTPUTS: CSR - DUT CSR IND.ADR.REG field is destroyed. 
34 TXCNTx - Counters incremented for lines on which chars sent. 
3* TXINTF - TX int flags (bit set if DMA.HO found set on line). 
;* 
3# CALLING SEQUENCE: JSR PC, TXFRPR 
3* 
3* COMMENTS: This routine assumes that at least one data pattern should be 
3* transmitted on each active line. 
3% Interrupts must be disabled when calling this routine. 


3* 
;# SUBORDINATE ROUTINES CALLED: DODMA. 
i-- SERESREEEE SEES SESS ESSE DEEDES 4S 6606060006 000000 0008 0600040008000000000000004 


TXFRPR:: SAVE sSAVE CONTENTS OF GPRS RO THRU RS. 
JSR RS ,PREGOS sCALL REGISTER SAVE SUBRT. 
MOV ACTLNS ,RS sGET THE ACTIVE LINE BIT MAP. 
COM Ra sGET BIT MAP OF LINES THAT WILL RECEIVE DATA. 
BIC R4,R5 sCLEAR LINES THAT WILL RX FROM TX LINE BIT MAP. 
3*¢ 
; Set up loop which handles one line per iteration. 
32 
CLR Ri sCLEAR THE LINE NUMBER COUNTER. 
3*¢ 
; If the line is inactive skip to select the next line. 
23: CLC sCLEAR BOOLEAN REGISTER. 
ROR RS sSHIFT BIT MAP OF LINES TO TX ON INTO BOOL.REG. 
BCC 6$ sDON‘T TX ON THIS LINE IF IT IS NOT ACTIVE. 


3¢ 

; Line is active. 

; Initiate OMA on this line. 

F Get the data pattern length for this line. 


| fad 
MOV R1,R4 sCOPY LINE NUMBER. 
R4 sCALCULATE WORD OFFSET FOR THIS LINE. 
MOV DPLENB(R4),R3  ;GET DATA PATTERN LENGTH FOR THIS LINE. 
MOV TXPTRBCR4),R2  ;PREPARE TO PASS DATA PATTERN ADR TO DODMA RTN. 


3? 
; Write DMA parameters to the DUT. 
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SEQ 0164 
GLOBAL SUBROUTINE - TXFRPR - 
6325 3° 
6326 026002 004737 017610 JSR PC ,DODMA 
read 026006 103404 BCS 4s sSKIP ERROR IF DODMA WAS SUCCESSFUL. 
3¢ 
tH ; Set the proper bit of the TX interrupt flags to indicate the line error. 
5° 
6331 026010 056437 002366 002252 BIS BITTBLC(R4), TXINTF sINDICATE THE ERROR. 
t=} 026016 000402 BR 6$ sSKIP UPDATING POINTERS AND COUNTERS. 
3¢ 
4 ; Update the TX character count for this line. 
5. 
oaee 026020 060364 003504 4$: ADD R3,TXCNTBCR4)  ;ADD THE DATA PATTERN LENGTH TO TX CHAR COUNT. 
7¢ 
zoo. ; Increment line counter,goto next line if not done. 
go 
6340 026024 005201 6$: INC R1 sINCREMENT THE LINE COUNTER. 
6341 026026 005705 TST RS sTEST THE TX LINE BIT MAP. 
ety | 026030 001353 BNE 2s sLOOP TO SEND CHAR TO ANOTHER LINE IF NOT DONE. 
6344 026032 60$: PASS sRESTORE GPRS. 
026032 004736 JSR PC ,@(SP)+ sRETURN TO PREGOS SUBRT. 
6345 026034 000207 RTS PC 
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SEQ 0165 
GLOBAL SUBROUTINE - TXIEO - 
6347 -SBTTL GLOBAL SUBROUTINE - TXIEO - 
6348 3+? SERSEEEEEEEE ESOS SEEDED DEES OS 0006 00060060006 060000 0000000000 00000000000006808 
6349 3% - TRANSMITTER INTERRUPT DISABLE - 
cone 34 This routine is used to disable transmitter interrupts in the DHV11-M. 
3* 
6352 3# INPUTS: NONE . 
6353 i* 
6354 3# OUTPUTS: The TX.INT.ENBL bit is cleared in the DUT CSR. 
6355 7* IESTST -conteins the updated status of the TX and RX interrupt 
6356 3* enable bits. 
6357 :* 
caee 3# CALLING SEQUENCE: JSR PC, TXIEO 
3* 
6360 3 COMMENTS: The contents of the indirect address register field in 
cock 34 the DUT CSR are destroyed. 
3* 
6363 ;* SUBORDINATE ROUTINES CALLED: NONE. 
6364 t-- SREEEEEEEEEEEE DEES EEE 4406 4404 060000000006 060000000600000000000000000000008 
6365 026036 010046 TXIEO:: MOV RO,-(SP) sSAVE CONTENTS OF RO ON THE STACK. 
6366 026040 106746 MFPS -(SP) sSAVE CURRENT PROCESSOR PRIORITY ON THE STACK. 
6367 026042 106427 000340 MTPS @PRIO7 sIGNORE ANY INTERRUPTS THAT MAY BE GENERATED. 
6368 026046 042737 177677 002234 BIC #177677, IESTAT ;CLEAR TX.INT.ENBL BIT IN IESTAT. 
6369 026054 013777 002234 154120 MOV IESTAT,@CSRA sDISABLE TX INTERRUPTS. 
6370 026062 106426 MTPS (SP)+ sENABLE INTERRUPTS TO THE PROCESSOR AGAIN. 
6371 026064 012600 MOV (SP)+,RO sRESTORE RO. 
6372 026066 000207 RTS PC 
- 
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GLOBAL SUBROUTINE 


6393 026070 
6394 026076 
6395 026104 
6396 026112 


= 





CVDHCDO DHV11-M FUNC TST 


052737 
042737 
013777 
000207 





040000 002234 
137677 002234 
002234 154070 


- TXIE1 - 


SEQ 0166 
-SBTTL GLOBAL SUBROUTINE - TXIE1 - 
eMC T Titi itt titi ti titi titi tiitiittti tt ttt tt Titi TT TT TTT TTT TTT TTT TTT TTT TTT Ts 
pe - TRANSMITTER INTERRUPT ENABLE - 
34 This routine is used to enable transmitter interrupts in the DHV11-M. 
3* 
3@ INPUTS: NONE . 
Pn 
;® OUTPUTS: The TX.INT.ENBL bit is set in the DUT CSR. 
;@ IESTST -contains the updated status of the TX and RX interrupt 
3* enable bits. 
;* 
3# CALLING SEQUENCE: JSR PC, TXIE1L 
3% 
3@ COPMENTS: The contents of the indirect address register field in 
3% the DUT CSR are destroyed. 
;* 


3# SUBORDINATE ROUTINES CALLED: NONE. 
tthe tott PoP TTP rir iri irr rir i tii itiitittittititttitittiT tt TT? 


TXIE1:: BIS @BIT14,IESTAT  ;SET TX. INT.ENBL BIT IN IESTAT. 
BIC #137677, IESTAT ;CLEAR ALL BITS EXCEPT TX RX I.E BITS. 
on | ccaheaaae sDISABLE TX INTERRUPTS. 
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SEQ 0167 
GLOBAL SUBROUTINE - TXRINI - 

6398 -SBTTL GLOBAL SUBROUTINE - TXRINI - 
6399 54% SOOSOOSOO6 6006 6600006006 060000 0000 00000006000000000000000000000000000000008 
6400 34 - Transmit and Receive Initialization Routine - 
6401 7) This subroutine performs the initialization of the verious pointers, 
6402 i@ counters, and flags which ere used during the transmission and 
6403 ;* reception portion of a test. This initielizetion is performed on 
nee 3@ the specified lines only, other line variables remain unchanged. 

3@ 
6406 3# INPUTS: CHCNTB - Lebel at base of line character count teble. 
6407 34 CHRTOT - Max @ of chars to RX on lines elready initialized. 
6408 ;@ DPENDB - Label et bese of line date pattern end teble. 
6409 34 DPLENB - Lebel et bese of line data pattern length table. 
6410 34 EXCNTB - Label et bese address of extra char counters table. 
6411 34 IESTAT - Present state of the RX.IE and TX.IE bits. 
6412 34 - Equated to number of lines on the DUT. 
6413 38 RXCNTB - Lebel at bese address of RX character counters table. 
6414 34 RXPTRB - Leable at bese adr of “next RX char” pointers teble. 
6415 3¢ TXCNTB - Lebel at bese address of TX character counters table. 
6416 3% TXPTRB - Lebel at bese adr of “next TX char” pointers teble. 
6417 ;* CBB - Lebel eat bese of TX/RX control block. 
6418 i* CB Contents - TX/RX control block contains the following: 
6419 34 CBLPRA - DUT LPR contents. 
6420 ;* CBLNCA - DUT LNCTRL contents. 
6421 3* CBDPAA - Address of beginning of date pattern. 
6422 34 CBDPLA - Length in bytes of dete pattern. 
6423 ;* CBOPNA - Number of date patterns to trensmit. 
6424 38 CBMAPA - Bit map of lines to be initielized. 
6425 3% CBLPBA - Type of loopback to be used for test. 
6426 34 CBOFSA - Amount to offset each TX start in the date pet. 
ose? 34 TXRXLB - Lebel at base of TX/RX line association teble. 

;* 
6429 3# OUTPUTS: CHCNT - Table of number of line TX characters (Initialized). 
6430 3% CHRTOT - Maximum number of chars to receive (2 « pet length). 
6431 3% DPEND - Table of date pattern ends (Initialized). 
6432 3* DPLEN - Table of dete pattern lengths (Initielized). 
6433 34 DUT LNCTRL - Line control registers (Initielized). 
6434 34 DUT LPR - Line parameter registers (Initielized). 
6435 16 EXCNT - Table of extra RX cher counts (Clred, selected lines). 
6436 3% RXCNT - Table of RX character counts (Clred, selected lines). 
6437 3¢ RXDONF - “Reception Done” flegs (Cleared for selected lines). 
6438 ;* RXPTR - Table of receive pointers (Initielized). 
6439 3% TXCNT - Table of TX cheracter counters (Clred, selected lines). 
6440 34 TXDONF - “Transmission Done” flegs (Clred for selected lines). 
6441 3¢ TXPTR - Table of transmit pointers (Initielized). 
eek ;* TXRXL - TX/RX line association table (Initielized). 

3% 
oe 3# CALLING SEQUENCE: JSR PC, TXRINI 
644 3% 
6446 3@ COMMENTS: If the celculation of the CHRTOT velue (2 times the data 
6447 ie pattern length) results in a number greater than 64K then 
6448 34 CHRTOT is initialized to 64K - 1. 
6449 73 This routine will not force internel loopback besed on the 
6450 3% loopback type in CBLPBA. The user must set up CBLNCA correctly 
cone 34 to get internal loopback. 

34 
6453 3# SUBORDINATE ROUTINES CALLED: WTWLNC,WTWLPR, 
6454 t-- $6066066666060666666006 660000 06006066600666600660006666606006066006606000046006 
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GLOBAL SUBROUTINE 


6455 026114 
026114 


6483 026214 


6505 026274 
6506 026276 
6507 026304 
6508 026306 
6509 026310 
6510 026314 





004537 


013702 


005326 


003136 
003126 
003140 


000200 
027234 
003124 


027264 
025646 


003130 
003132 


002366 


002500 
177777 


003132 
003144 


003504 


003344 


003140 


005276 
005236 


- TXRINI - 
TXRINI:: SAVE sSAVE CONTENTS OF GPRS RO THRU RS. 
JSR RS ,PREGOS sCALL REGISTER SAVE SUBRT. 
3¢ 
s Set up the LPR and LNCTRL registers es specified in the TX/RX Control Block. 
+ Nod 
MOV CBMAPA RS sGET THE BIT MAP OF SELECTED LINES. 
MOV CBLNCA,RO sGET THE NEW LNCTRL CONTENTS. 
000001 CMP CBLPBA, #1 sCHECK IF INTERNAL LOOPBACK HAS BEEN SELECTED. 
2s sSKIP SETTING INT. LOPBCK IN MAINTENANCE FIELD. 
BIS #200 ,RO sSET INTERNAL LOOPBACK IN MAINTENANCE FIELD. 
2s: JSR PC ,WTWLNC sSET UP THE LNCTRL REGS FOR SELECTED LINES. 
MOV CBLPRA ,RO sGET THE NEW LPR CONTENTS. 
JSR PC ,WTWLPR sSET UP THE LPR REGISTERS FOR SELECTED LINES. 
JSR PC, TXENBL sENABLE TX FOR ALL SELECTED LINES. 
3° 
; Set up and begin loop which handles one line per iteration. 
ge 
CLR R4 sCLEAR THE LINE OFFSET. 
MOV CBDOPAA,RS sINITIALIZE THE TX START ADDRESS VALUE. 
MOV CBDPLA ,R3 sGET THE LENGTH OF THE DATA PATTERN. 
AOD RS ,R3 sCALCULATE END ADDRESS OF THE DATA PATTERN. 
003136 43%. BIT BITTBL(R4),CBMAPA ;CHECK IF THIS LINE IS SELECTED FOR INIT. 
BEQ 12$ sSKIP SET UP IF LINE IS NOT SELECTED. 
3¢ 
s This line is selected for initielizetion. . 
3 Set up proper entry in number of chars to TX and RX teble. 
3 Include cher count on this line in max allowable cher totel for ell lines. 
ge 
MOV CBDOPLA,R1 sGET THE LENGTH OF THIS LINE'S DATA PATTERN. 
MOV CBDPNA ,R2 sGET THE NUMBER OF PATTERNS TO TX AND RX. 
JSR PC ,MUL16U sCALCULATE THE TOTAL NUMBER OF CHARS TO TX/RX. 
MOV R1,CHCNTBCR4) sSET UP THE NUMBER OF TX/RX CHARS FOR LINE. 
ADD R1,CHRTOT sADD TWICE THE NUMBER OF CHARACTERS TO TX/RX 
BcS 6$ s ON THIS LINE TO THE TOTAL NUMBER OF CHARS 
R1,CHRTOT s WHICH WE WILL ALLOW TO BE RECEIVED ON 
Bcc 8s s ALL LINES. 
002500 = MOV @-1,CHRTOT s SET MAX CHAR TOTAL TO -1 IF OVERFLOW. 
3¢ 
+ Set up the dete pattern end and length for this line. 
3° 
003204 MOV CBDPLA,DOPLENB(R4) ;SET UP TX DATA PATTERN LENGTH FOR THIS LINE. 
MOV R3,DPENDB(R4) ;SET UP TX DATA PAT END ADDRESS FOR THIS LINE. 
3¢ 
s Set up the TX counter and cherecter pointer for this line. 
i- 
CLR TXCNTBC(R4) sCLEAR THE TX COUNTER FOR THIS LINE. 
MOV RS, TXPTRB(R4)  ;SET UP THE TX CHAR POINTER FOR” % LINE. 
3¢ 
s Set up the TX/RX line association offset teble entry for i: line. 
ge 
MOV R4,R2 sSELECT LINE OFFSET FOR NON-STAGGERED LPBK. 
000002 CMP CBLPBA,#@2 sTEST FOR STAGGERED LOOPBACK. 
BNE 108 sSKIP SETTING STAGGERED LPBK IF NOT. 
ASR R2 sFORM BYTE OFFSET INTO TABLE FROM TX LINE @. 
MOVB STGTRBCR2),R2 ;GET THE RX LINE CORRESPONDING WITH TX LINE. 
10$: MOV R2, TXRXLBCR4) sLOAD TX TABLE ENTRY WITH RX LINE OFFSET. 






SEQ 0168 
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SEQ 0169 
GLOBAL SUBROUTINE - TXRINI - 
6511 3¢ 
6512 + Set up the RX counters and cherecter pointer for the RX line which 
a7 F is essocieted with this TX line. 
g* 
6515 026320 005062 003544 CLR RXCNTBC(R2) sCLEAR THE RX COUNTER FOR THIS RX LINE. 
6516 026324 005062 003244 CLR EXCNTB(R2) sCLEAR THE EXTRA CHAR COUNTER FOR THIS RX LINE. 
+sH4 026330 010562 003404 MOV RS,RXPTRBCR2) ;SET UP THE RX CHAR POINTER FOR THIS RX LINE. 
3¢ 
yo o44 s Update the TX start pointer in preperation for the next line. 
| ad 
6521 026334 063705 003142 12%: ADD CBOFSA,.RS sADD THE TX OFFSET TO THE TX START POINTER. 
6522 026340 020503 14%: CMP RS ,R3 sCOMPARE TX START WITH END OF DATA PATTERN. 
6523 026342 103403 BLO 163 sSKIP WRAPAROUND IF START IS BEFORE PAT END. 
6524 026344 163705 003132 SUB CBDPLA,RS sSUBTRACT DATA PATTERN LENGTH FROM START. 
oo 026350 000773 BR 14$ sLOOP UNTIL START IS WITHIN DATA PATTERN. 
3¢ 
++ A s Update the TX line number offset to the next line. 
3° 
6529 026352 005204 16$: INC R4 
cone 026354 005204 INC RE 
3¢ 
ons | + Test for done handling ell possible lines on the device. 
g@ 
6534 026356 020427 000020 CMP R4, ONUMLNS #2 sCOMPARE OFFSET WITH 2 TIMES MAX @ OF LINES. 
oa 026362 002706 BLT 4s sLOOP IF NOT ALL LINES DONE. 
6537 026364 60%: PASS sRESTORE GPRS. 
026364 004736 JSR PC .8CSP)+ sRETURN TO PREGOS SUBRT. 
6538 026366 000207 RTS PC : 





a 
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GLOBAL SUBROUTINE 


026420 
6569 026422 
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004537 
106737 
106427 
012705 
004737 
010537 


004736 
000207 





SEQ 0170 
- TXROFF - 
-SBTTL GLOBAL SUBROUTINE - TXROFF - 
see SOOCOS OSE ESOS OE EOOEEO ESOS E464 OE 0446060000 F0000000084E SEES EEEEEEEEEEOES 
rT) - Turn TX and RX off Routine - 
36 This subroutine is used to turn off DUT transmission end reception. 
;¢ This routine echieves this | boost i processor priority to 5 to 
3¢ avoid RX interrupts end by clearing ell the DUT TX.ENABL bits to 
34 helt TX Ceither DMA or single cherecter TX). The stetes of the 
38 TX.ENABLE bite end the processor priority ere saved for restoration 
;* when TX and RX ere re-enabled. 
34 
3@ INPUTS: MAPLNS - Bit map of ell possible lines on the DUT. 
34 
s@ OUTPUTS: SAVPRI - Saved processor priority. 
;@ SAVTEN - Bit map of TX.ENBL bits (Bit setif TX.ENBL wes set). 
3¢@ 
3@ CALLING SEQUENCE: JSR PC, TXROFF 
y8 
3¢@ COMMENTS: 


s@ SUBORDINATE ROUTINES CALLED: TXDSBL. 
b-- O8006666 606060 00000006 66 060066000660000000000000000000000006000000000000006 


TXROFF:: SAVE :SAVE CONTENTS OF GPRS RO THRU RS. 
JSR RS ,PREGOS sCALL REGISTER SAVE SUBRT. 

MFPS SAVPRI sGET THE PRESENT PROCESSOR PRIORITY. 

MTPS PRIOS sDISABLE DUT INTERRUPTS. 

MOV @MAPLNS ,RS sPREPARE TO DISABLE TX ON ALL OUT LINES. 

JSR PC, TXDSBL sCLEAR ALL DUT TX.ENABLE BITS. 

MOV RS ,SAVTEN sPRESERVE THE PREVIOUS TX.ENABLE BIT STATES. 
60$: PASS sRESTORE GPRS. 

are ee JSR PC, @(SP)+ sRETURN TO PREGOS SUBRT. 
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SEQ 0171 
GLOBAL SUBROUTINE - TXRON - 
6571 -SBTTL GLOBAL SUBROUTINE - TXRON - 
6572 see OOS OO OEOEOS OS E660 040660 0006600600 0000 00000606000000000000000000000000000008 
6573 34 - Turn TX and RX on Routine - 
6574 7° This subroutine is used to turn on DUT transmission and reception. 
6575 i This routine restores the DUT TX.ENABLE bits and the processor priority 
rode 34 to the stetes saved by the TXROFF routine. 
5a 
6578 3@ INPUTS: SAVPRI - Saved processor priority. 
os7e 3¢ SAVTEN - Bit map of TX.ENBL bits (Bit setif TX.ENBL wes set). 
34 
6581 3@ OUTPUTS: DUT TX.ENABLE bits - Set to specified states. 
pea | 3@ PROCESSOR PRIORITY - Set to specified priority. 
3% 
6584 3# CALLING SEQUENCE: JSR PC, TXRON 
6585 3* 
6586 3 COMMENTS: 
6587 3* 
6588 3 SUBORDINATE ROUTINES CALLED: TXENBL. 
6589 t-- SO OCREEE66 46 660666086660060000 66 0606000606000660000000000000000000000840008 
6590 
6591 026424 ; TXRON:: SAVE sSAVE CONTENTS OF GPRS RO THRU RS. 
026424 004537 005326 JSR RS ,PREGOS s;CALL REGISTER SAVE SUBRT. 
6592 026430 013705 002244 MOV SAVTEN,RS sGET THE SAVED STATES OF THE TX.ENABLE BITS. 
6593 026434 004737 025646 JSR PC, TXENBL sSET THE SPECIFIED TX.ENABLE BITS. 
6594 026440 106437 002246 MTPS SAVPRI sRESTORE THE PROCESSOR PRIORITY. 
6595 026444 60$: PASS sRESTORE GPRS. 
026444 004736 JSR PC .8(SP)+ sRETURN TO PREGOS SUBRT. 
6596 026446 000207 RTS PC 





- ——_—_——— 
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SEQ 0172 
GLOBAL SUBROUTINE - TXRREP - 
6598 -SBTTL GLOBAL SUBROUTINE - TXRREP - 
6599 ioe O00000 0660666666 60006006 600006 6006000000600 060000 000000000000000000000008006 
6600 34 - Report Finel TX/RX Errors Routine - 
6601 3@ This subroutine reports errors which ere found efter the completion 
6602 ;@ of the TX, RX, and verification of dete patterns. It reports errors 
6603 34 dealing with incomplete TX or RX and with DMA_START bits. 
6604 34 
6605 3@ INPUTS: ACTLNS - Bit map of active DUT lines. 
6606 34 OPLENB - Lebel et base of the dete pattern lengths table. 
6607 3* ERRMSG - Address of primery error message for this routine. 
6608 ;@ ERRNBR - Error number of error reported in this routine. 
6609 34 RXCNTB - Lebel at base of the RX character counters table. 
6610 34 RXDONF - Reception done flags. 
6611 34 TXCNTB - Lebel at base of the TX character counters table. 
6612 34 TXDONF - Transmission done flags. 
yore | 3% TXINTF - Contains bit map of lines with DMA_START bit errors. 
6 3* 
6615 3@ OUTPUTS: CARRY FLAG - Restored to its enteri velue. 
6616 34 ERRBLK - Address of the error reporting routine (Destroyed). 
oh 3* Messages may be printed at the operator console. 
3* 
— 3* CALLING SEQUENCE: JSR PC, TXRREP 
0 3* 
6621 3@ COMMENTS: This routine reports errors at Initial ERRNBR thru 
6622 ;4 Initial ERRMBR+2. 
6623 34 If no lines failed to complete their reception or failed to 
6624 34 complete their transmission or had DMA_START bit errors 
oo. 34 then no messages are printed. 
662 34% 
6627 :* SUBORDINATE ROUTINES CALLED: CONMAP ,ER9005,ER9102 ,ROMAST, RRXNON,RTXNDN. 
6628 ; s-- SOOSE666 606648060660 06 00066606 $6000006 0606 040000000600 0000060060 00000604804 
6629 
6630 026450 TXRREP:: SAVE s;SAVE CONTENTS OF GPRS RO THRU RS. 
026450 004537 005326 JSR RS ,PREGOS sCALL REGISTER SAVE SUBRT. 
6631 026454 006003 ROR R3 sROTATE CARRY INTO GPR TO SAVE CARRY STATE. 
6632 026456 013704 005320 MOV ERRNBR ,R4 sSAVE THE INITIAL ERROR NUMBER VALUE. 
6633 026462 013705 002174 MOV ACTLNS RS sGET THE ACTIVE LINES BIT MAP. 
6634 026466 004737 024034 JSR PC ,ROMAST sREPORT ANY DMA_START BIT ERRORS. 
6635 026472 005237 005320 INC ER sSELECT INTIAL ERROR NUMBER + 1. 
6636 026476 004737 024420 JSR PC ,RTXNON sREPORT TX NOT COMPLETE IF NECESSARY. 
6637 026502 005237 005320 INC ER sSELECT INITIAL ERROR NUMBER + 2. 
6638 026506 004737 017300 JSR PC ,CONMAP sGENERATE AN ASSOCIATED LINE BIT MAP. 
6639 026512 004737 024360 JSR PC ,RRXNDN sREPORT RX NOT COMPLETE IF NECESSARY. 
6640 026516 010437 005320 MOV R4,ERRNBR sRESTORE THE INITIAL ERROR NUMBER VALUE. 
6641 
6642 026522 006103 ROL R3 sROTATE SAVED CARRY STATE BACK INTO CARRY. 
6643 026524 60$: PASS sRESTORE GPRS, THIS ROUTINE PRESERVES THE 
026524 004736 JSR PC ,A(SP)>+ sRETURN TO PREGOS SUBRT. 
6644 026526 000207 RTS PC ; INITIAL CARRY STATE. 
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SEQ 0173 
GLOBAL SUBROUTINE - UNSDIY - 
6646 -SBTTL GLOBAL SUBROUTINE - UNSDIV - 
6647 gee SESS O6O6 660606666008 6000 066008600066 0000060000000000000000000060000000008008 
6648 3¢ - Unsigned Divide Routine - 
6649 3@ This subroutine is used to divide a 32 bit unsigned dividend by @ 
6650 ;* 16 bit unsigned divisor giving a 16 bit quotient. All numbers ere 
6651 3¢ considered to be unsigned. A success fl is not set on return if 
oon 34 the quotient was too big to be contained in 16 bits. 
3% 
6654 3*@ INPUTS: Ri - The divisor, unsigned, 16 bits. 
6655 34 R2 - Most significant word of the dividend, unsigned. 16 bits. 
oes 34 R3 - Least significant word of the dividend, unsigned, 16 bits. 
:e 
6658 3@ OUTPUTS: Ri - Quotient, unsigned, 16 bits (177777 if overflow). 
aooe 3* CARRY - Success fleg, set if complete quotient fits in 15 bits. 
3% 
oeae 3# CALLING SEQUENCE: JSR PC ,UNSDIV 
34 
6663 3* COMMENTS: If the divisor is 0 the quotient is returned es all ones 
aeoe pa (177777) and the carry is clear regardless of the dividend. 
3% 
6666 3# SUBORDINATE ROUTINES CALLED: None. 
6667 t-- SEOEOOEEEE ESOS EG OO 466000 660006 6000060000600006 00000000 000000000000000000008 
6668 
6669 026530 UNSDIV:: SAVE sSAVE CONTENTS OF GPRS RO THRU RS. 
ove 026530 004527 005326 JSR RS ,PREGOS sCALL REGISTER SAVE SUBRT. 
3° 
otk: ; Check for quotient greater than 16 bits condition. 
3° 
6673 026534 010204 MOV R2,R4 sGET MSW OF DIVIDEND FOR SUBTRACT. 
6674 026536 160104 SUB R1,R4 sSUBTRACT DIVISOR FROM MSW OF DIVIDEND. 
6675 026540 103403 BCS 2s sIF IT DIDN'T GO, WE HAVE QUOTIENT < 16 BITS. 
6676 026542 012701 177777 MOV #-1,R1 sSET QUOTIENT TO ALL ONES (177777), 
+d 026546 000442 BR 60$ sEXIT WITH CARRY CLEAR. 
3? 
= ; Set up counters and various working GPRs. 
6 ye 
6681 026550 005004 2s: CLR R4 sCLEAR THE LSW OF THE DIVISOR. 
6682 026552 000241 cLC sCLEAR CARRY FOR THE SHIFT OF THE DIVISOR. 
6683 026554 006001 ROR R1 ; DIVISOR BY 
6684 026556 006004 ROR R4 3; 2CUNSIGNED ) 
6685 026560 012700 000020 MOV #16. ,.RO sSET UP INITIAL SHIFT COUNT TO 16. 
6686 i? 
6687 ; The subtract and shift loop. 
6688 he 
6689 026564 010246 4$: MOV R2,-CSP) sSAVE MSWORD OF DIVIDEND. 
6690 026566 010346 MOV R3,-CSP) sSAVE LSWORD OF DIVIDEND. 
6691 026570 160403 SUB R4,R3 sLSWORD DIVIDEND - LSWORD OF DIVISOR. 
6692 026572 005602 SBC R2 sMSWORD DIVIDEND - BORROW . 
6693 026574 103402 BCS 6$ sIF BORROW FROM BORROW SUBTRACT, IT DIDN'T GO. 
6694 026576 160102 SUB R1,R2 sMSWORD DIVIDEND - MSWORD OF DIVISOR. 
oe 026600 103003 BCC 8$ sIF NO BORROW, IT WENT, CARRY IS CLEAR. 
3*¢ 
6697 ; It didn't go, so we shift a 1 into the quotient (complemented later). 
6698 ; Carry is set. 
6699 3° 
6700 026602 012603 6$: MOV (SP)+,R3 sRESTORE LSWORD OF DIVIDEND. 
6701 026604 012602 MOV (SP)+,R2 sRESTORE MSWORD OF DIVIDEND. 
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SEQ 0174 
GLOBAL SUBROUTINE - UNSDIV - 
da | 026606 000401 BR 10$ sGOTO SHIFT 1 INTO THE QUOTIENT. 
7° 

6704 ; It went, so we restore the steck and shift e 0 into quotient (will be 

day ; complemented leter). Cerry is clear. 

6 3- 

4a44 026610 012626 83: MOV (SP)+,(SP)+ sPOP THE SAVED DIVIDEND OFF OF THE STACK. 

3° 

tao s Shift the result of the subtract attempt into the quotient shift reg. 

ge 

6711 026612 006105 10$: ROL RS sSHIFT NEXT BIT INTO THE INVERTED QUOTIENT. 

6712 026614 000241 CLC sDIVIDE THE 

6713 026616 006001 ROR Ri ; DEVISOR BY 

6714 026620 006004 ROR R4 + 2 CUNSIGNED). 

6715 026622 005300 OEC RO sCOUNT THIS SHIFT AND SUBTRACT. 

6716 026624 001357 BNE 43 sLOOP FOR ANOTHER SHIFT € SUB IF NOT DONE. 

det 026626 005105 COM RS sGET QUOTIENT FROM INVERTED QUOTIENT. 

3° 

4h ; Now we either round up or leave quotient slone. 

6 3- 

6721 026630 000241 cLC sCLEAR THE CARRY FOR THE SHIFT OF THE DIVIDEND. 

6722 026632 006103 ROL R3 sMULTIPLY LSWORD OF DIVIDEND BY 2, MSWORD IS 0. 

6723 026634 103402 BCS 12$ sIF CARRY FROM SHIFT, ROUND UP. 

6724 026636 160403 SUB R4,R3 sSUBTRACT DIVISOR FROM DIVIDEND. 

they 026640 103403 BCS 14$ IF BORROW, DON’T ROUND UP. 

6 3° 

44 44 ; Round up, extra subtract went. 

g= 

6729 026642 005205 12$: INC RS sINCREMENT THE QUOTIENT BY ONE. ; 

6730 026644 001001 BNE 14$ sIF NO OVERFLOW, WE LEAVE THE ROUND UP. 

ores 026646 005305 DEC R5 s;DON‘T LET ROUNDING CAUSE OVERFLOW. 

3¢ 

ths ; All done, pass quotient and exit. 

ge 

6735 026650 010501 14$: MOV RS,R1 sPASS QUOTIENT BACK IN Ri. 

4h 026652 000261 SEC sINDICATE NO OVERFLOW. 

6738 026654 60$: PASS R1 sRESTORE GPRS, LEAVE THE FOLLOWING INTACT: 
026654 010166 000004 MOV R1,R1SLOTC SP) ;PUT Ri IN STACK SLOT. 
026660 004736 JSR PC,@(SP)+ sRETURN TO PREGOS SUBRT. 

6739 :R1 - 16 BIT, UNSIGNED QUOTIENT, 

6740 026662 000207 RTS PC sCARRY - SET INDICATES NO OVERFLOW (SUCCESS). 
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SEQ 0175 
GLOBAL SUBROUTINE - UPOCHR - 
6742 -SBTTL GLOBAL SUBROUTINE - UPOCHR - 
6743 b+ SOORSOEOODO6 66 06606606000006646000006600000000000000000000000000000000000008 
6744 3* - Update Character Pointers and Counters Routine - 
6745 34 This subroutine updates the pointers and counters associated with 
6746 3% the reception of ea character on ea specified line. The receive char 
6747 3% pointer is set to the next expected character, the receive char count 
6748 ;* is incremented, and the count is checked to determine if the reception 
6749 34 is complete. If the reception is complete the Reception Done Flag 
ovat 34 is set for the specified line. 
sk 
6752 3* INPUTS: R3_- Line number times 2 of line on which cher was received. 
6753 34 BITTBL - Label of table of words used to form single bit maps. 
6754 34 CHCNTB - Base of number of chars to TX on each line table. 
6755 34 DPENDB - Base of date pattern end addresses table. 
6756 34 DPLENS - Base of date pattern lengths table. 
6757 34 RXCNTB - Base of the RX character counters table. 
6758 34 RXPTRB - Bese of the RX cheracter pointers table. 
aoe 3% TXRXLB - Base of TX/RX line number association table. 
6760 3% 
6761 s* OUTPUTS: Following variables updated for line on which char wes received: 
6762 3* RXCNT - Count of the number of characters received on line. 
6763 34 RXDONF - RX done flags with BITO for line 0 ... (Updated). 
dae 3% RXPTR - Updated to point to the next expected cher on line. 
6 3% 
tes 3# CALLING SEQUENCE: JSR PC ,UPDCHR 
34% 
6768 3* COMMENTS: 
6769 3* 
6770 3* SUBORDINATE ROUTINES CALLED: None. 
6771 b-~ SEORSOSSOE 66 $646 600066 046060000 06000006 060000 0006000000 060000040000000000008 
6772 026664 UPDCHR:: SAVE sSAVE CONTENTS OF GPRS RO THRU RS. 
026664 004537 005326 - JSR RS ,PREGOS s;CALL REGISTER SAVE SUBRT. 
errs 026670 016302 005236 MOV TXRXLBCR3),R2 sGET TX LINE NUMBER OFFSET FOR THIS RX LINE. 
3¢ 
ore + Update the RX date pointer with wraparound at the end of the date pattern. 
6 ge 
6777 026674 016301 003404 MOV RXPTRBCR3),R1 sGET THE RX DATA POINTER FROM THE RX PTR TABLE. 
6778 026700 005201 INC Ri sINCREMENT THE RX POINTER VALUE BY 1. 
6779 026702 020162 003144 CMP R1 ,OPENDB(R2) sCMP RX PTR VALUE WITH ADR OF END OF DATA PAT. 
6780 026706 103402 BLO 23 sSKIP WRAPPING RX PTR AROUND IF NOT AT END. 
6781 026710 166201 003204 S OPLENB(R2),R1 sWRAP RX PTR AROUND TO START OF DATA PATTERN. 
6782 026714 010163 003404 2$ MOV R1,RXPTRBCR3) sUPDATE THE RX POINTER WITH THE NEW VALUE. 
6783 3+ 
cos s Update the RX character count with overflow detection. 
678 s- 
6786 026720 016301 003544 MOV RXCNTBC(R3),R1 sGET THE RX CHARACTER COUNT. 
6787 026724 005201 INC R1 sINCREMENT THE RX CHAR COUNT VALUE BY 1. 
6788 026726 001002 BNE 4$ sSKIP SETTING COUNT TO MAX IF NO OVERFLOW. 
6789 026730 012701 177777 MOV @-1,R1 sSET RX CHAR COUNT VALUE TO MAX VALUE. 
ooo 026734 010163 003544 4$: MOV Ri, RXCNTBCR3) sUPDATE THE RX CHAR COUNT WITH NEW VALUE. 
6791 3¢ 
6792 3; Check for RX completion on this line. 
the, ; If RX is complete on this line, set the correct RX done flag. 
g° 
6795 026740 016204 003444 MOV CHCNTBC(R2),R4 sGET THE NUMBER OF TX CHARS IN COMPLETE Tx. 
6796 026744 020104 CMP R1,R4 sCOMPARE RX CHAR COUNT WITH NUMBER OF TX CHARS. 
6797 026746 103403 BLO 60$ sEXIT ROUTINE IF NOT ALL CHARS RECEIVED. 


L 


me ae 


| CVDHCDO DHV11-M FUNC TST 





PART 3 MACRO VOS.00 Thursday 25-Apr-85 16:37 Page 123-1 poe EEE 





LVUMLUY UNVA2-T PUN, Tol FANT 39 MALRY VU5.0U Inursd@y co-Apr-65 16:5/ Pege le5-1 


SEQ 0176 
GLOBAL SUBROUTINE - UPDCHR - 
pd 026750 056337 002366 002506 BIS BITTBLCR3) ,RXDONF sSET THE RX DONE FLAG FOR THIS LINE. 
6800 026756 608: PASS sRESTORE GPRS. 
026756 004736 JSR PC ,@(SP)-+ sRETURN TO PREGOS SUBRT. 
6801 026760 000207 RTS PC 


LL 








ee ee ee 
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- VANSUP - 


GLOBAL SUBROUTINE 


026762 004537 
6839 026766 005037 
6840 026772 005037 
6841 026776 005037 
6842 027002 005037 


6846 027006 010137 


L 
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002174 
000004 


000001 


002176 


-SBTTL GLOBAL SUBROUTINE - VANSUP - 

$+ CHOO606600 006400606460 000000 04 060600000006 04600000000 0000 0600000000000000008 
34 - TRANSMISSION / RECEPTION SET-UP ROUTINE - 

3% 

ie This routine is used to initialise both the DUT and the 

3@ transmission/reception control peremeters to the correct 
3% state, prior to a Single character or DMA tranmission, 

3* reception test. 

3% 

3;@ INPUTS: R1 - TX, RX LPR contents. 

ie R2 - Stert address of date pattern to transmit. 

ye R3 - Length of date pattern. 

74 R4 - Number of patterns to transmit. 

34 ACTLNS - Conteins ea bit map of all currently active lines. 
34 LOPBCK - Contains the 4 of loopback mode selected. 

34 CBB - Label at base of TX/RX control block. 

3% 

3* OUTPUTS: The contents of the TX/RX control block (CCB) ere destroyed. 
34 The indirect address field of the DUT CSR may be destroyed. 
;* The DUT‘s LPR’s and LNC’s may be modified. 

34 The following pointers and counters are initialised; 

34 CHCNT , CHRTOT ,DPEND ,OPLEN,EXCNT ,RXCNT ,RXPTR, TXCNT, 

34 TXPTR, TXRXL. 

;* CHRTOT, RXDONF, TXDONF and TXINTF are cleared. 

3* 

3# CALLING SEQUENCE: JSR PC , VANSUP 

;* 

3;* COMMENTS: Modem loopback mode is inhibited if it has been selected 
34 vie Herdware P-table questions, and internal loopback mode 
34 is forced to take place. 

3* 

;* 


s# SUBORDINATE ROUTINES CALLED: CONMAP,RXENBL, TXRINI. 
PPro titT tT ri tiie Piri rrr irri rrr iri iri itititiittititttiti tt ittit tT TTT Ty 


VANSUP:: SAVE 


sSAVE CONTENTS OF THE GPR‘'S RO THRU RS. 


JSR RS ,PREGOS ;CALL REGISTER SAVE SUBRT. 

CHRTOT ;CLEAR TOTAL RECEIVED CHAR COUNTER. 
TXINTF s;CLEAR FLAGS USED TO LOG DMA H.OVER ERRORS. 
TXDONF ;CLEAR THE TX DONE FLAGS. 
RXDONF ;CLEAR THE RX DONE FLAGS. 

3* 

; Set up the Transmission/Reception Control block to the desired state. 
R1,CBB ;SET CONTENTS OF LPR PARAMS IN TX/RX C.BLK. 
CBB Ri ;GET BASE ADDRESS OF CONTROL BLOCK. 
R1 sINCREMENT ADDRESS FOR NEXT WORD 
RL sINITIALISE THE FOLLOWING IN THE CNTRL.BLK: 
04,(R1)+ ; LNCTRL PARAMETER, ENABLE RECEIVERS. 
R2,CR1)+ ; START ADDRESS OF DATA PATTERN. 
R3,CR1)+ ; DATA PATTERN LENGTH. 
R4,CR1)+ ; NUMBER OF DATA PATTERNS TO TRANSMIT. 


ACTLNS ,CR1)+ ; BIT MAP OF LINES TO INITIALISE. 
#6BIT2,LOPBCK sTEST IF MODEM LOOPBACK MODE HAS BEEN SELECTED. 


es sDONT SELECT INTERNL LOPBCK IF STAGRD OR LOCAL. 
#1,R2 sFORCE INTERNAL LOOPBACK MODE TO BE SELECTED. 
R2,(R1)+ sINITIALISE LOOPBACK MODE IN CONTROL BLOCK. 


SEQ 0177 
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- VANSUP - 


GLOBAL SUBROUTINE 


6859 027056 
6860 027060 


6890 027150 
6891 027154 

027154 
6892 027156 


L 
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012711 


004737 


012701 


002176 








SEQ 0178 
BR ae sSKIP NEXT INSTRUCTION IF IN MODEM LOOPBACK. 
2s: MOVB LOPBCK,(R1)+ sSET LOOPBACK MODE. 
4$: INC R1 sINCREMENT ADDRESS FOR THE NEXT WORD. 
MOV @2,(R1) sSET AMOUNT OF OFFSET EACH TX STARTS AT TO 2. | 


3* 

: Initialise the DUT and the associated pointers and counters, to the state 
; dictated by the contents of the TX/RX control block. 

ge 


JSR PC, TXRINI sINITIALISE OUT. 

3¢ 

; Initislise pointers and counters for inactive lines to zero. 

— 
MOV @MAPI_LNS,R1 ;GET THE LINE BIT MAP FOR ALL LINES. 
MOV ACTLNS ,R2 sGET THE ACTIVE LINE BIT MAP. 
COM Ri 3 
COM R2 8 
BIC R1,R2 s;GENERATE AN IN-ACTIVE LINE BIT MAP. 
MOV R2,CBMAPA sMOVE BIT MAP TO THE CONTROL BLOCK. 
CLR CBOPNA ;CLEAR THE REPEAT TX COUNT IN CNTRL BLCK. 
JSR PC, TXRINI ;SET UP PARAMETERS FOR INACTIVE LINES. 


3¢ 

; Disable Receivers on all lines to ensure correct initialisation of only the 
; lines that are selected. 

g= 


MOV @MAPLNS,RS ;SET-UP BIT MAP FOR ALL LINES. 
JSR PC ,RXDSBL sDISABLE RX ON ALL LINES. 

3¢ 

; Enable receivers on associated (RX) lines. 

37 
MOV ACTLNS ,RS ;GET THE ACTIVE LINE BIT MAP. 
JSR PC ,CONMAP sGENERATE AN ASSOCIATED LINE BIT MAP. 
JSR PC ,RXENBL sENABLE RECEIVERS ON ASSOCIATED LINES. 

60$: PASS sRESTORE GPR‘S. 

ne 7 JSR PC ,@(SP)+ ;RETURN TO PREGOS SUBRT. 
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SEQ 0179 
GLOBAL SUBROUTINE - WAIBIS - 
6894 -SBTTL GLOBAL SUBROUTINE - WAIBIS - 
6895 FO SHOOSOOEEEEE 16666 660660000606000006060000060000000006000000000000000000008 
6896 3¢ - Wait For Bit Set Routine - 
6897 18 This subroutine waits for the specified bit to become set. If the 
6898 3% specified bit goes to ea set state within the specified time-out 
. 6899 ;* period @ success indication is returned by this routine. 
6900 3* The lest value which is read looking for the condition is returned to 
coek 33 allow the use of this routine to look for destructive read conditions. 
je 
6903 3 INPUTS: Ri - Time-out value and bit number indication: 
6904 ;¢ Bits 15 thru 12 - Number of bit to test (range 0 thru 15). 
6905 34 Bits 11 thru 0 - Time-out velue in milli-seconds (4095 max). 
6906 ;* R2 - Address of word containing the bit to test. 
6907 3* MSLCNT. 
6908 ;¢ 
6909 3# OUTPUTS: R2 - The lest word which was read to check for the condition. 
eee :8 CARRY - Success flag (CARRY set if bit set before time-out). 
1 34 
6912 3# CALLING SEQUENCE: MOV #130040,R1 sPASS BIT 11 (13 OCTAL) AND 
6913 3* ; 32 (40 OCTAL) MS DELAY. 
6914 34 MOV LABEL ,R2 sTEST BIT IN WORD AT “LABEL”. 
oeak 34 JSR PC ,WAIBIS sWAIT 32 MS FOR BIT 11 TO SET. 
6 3* 
6917 3@ COMMENTS: 
6918 34 
6919 s# SUBORDINATE ROUTINES CALLED: MSLGET. 
6920 b-- SOOO6OO666 060606000606 060600600006 600000 00000000000006000000001000000000008 
6921 
6922 027160 WAIBIS:: SAVE sSAVE CONTENTS OF GPRS RO THRU RS. 
027160 004537 005326 JSR RS ,PREGOS ;CALL REGISTER SAVE SUBRT. 
6923 027164 010204 MOV R2,R4 sSET UP THE ADDRESS PARAMETER FOR MSLGET. 
6924 027166 010102 MOV R1,R2 
6925 027170 042701 170000 BIC #170000,R1 sSEPERATE DELAY COUNT OUT OF PASSED PARAMETER. 
6926 027174 042702 007777 BIC €7777,R2 sSEPERATE LINE NUMBER FIELD OF PASSED PARAM. 
6927 027200 000302 SWAB R2 ;PUT LINE NUMBER FIELD IN LSBYTE. 
6928 027202 006202 ASR R2 sSHIFT THE LINE NUMBER FIELD INTO THE PROPER 
6929 027204 006202 ASR R2 s+ POSITION TO USE IT AS A WORD TABLE OFFSET 
6930 027206 006202 ASR R2 FOR THE TABLE LOOKUP OF THE LINE BIT MAP. 
6931 027210 016202 002366 MOV BITTBL(R2),R2 ;GET BIT MAP OF LINE TO TEST FROM TABLE. 
6932 027214 010203 MOV R2,R3 sINDICATE THAT THE BIT SHOULD BE SET. 
6933 027216 004737 021464 JSR PC ,MSLGET sWAIT FOR THE BIT TO BE SET WITHIN TIME-OUT. 
6934 ; CARRY IS CORRECT UPON MSLGET RETURN. 
6935 027222 0100Cz2 MOV RO,R2 sPASS LAST VALUE READ AS OUTPUT PARAMETER. 
6936 027224 60$: PASS R2 sRESTORE GPRS, EXCEPT THE FOLLOWING: 
027224 010266 000006 MOV R2,R2SLOTC( SP) sPUT R2 IN STACK SLOT. 
027230 004° 56 JSR PC ,@C(SP)+ sRETURN TO PREGOS SUBRT. 
6937 s R2 - LAST VALUE READ LOOKING FOR CONDITION. 
6938 027232 000207 RTS PC s CARRY - SUCCESS FLAG (SET IF BIT FOUND SET). 


— 
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SEQ 0180 
GLOBAL SUBROUTINE - WTWLNC - 
6940 -SBTTL GLOBAL SUBROUTINE - WTWLNC - 
6941 $ Oo 060006060606 06 006060000002 000000000000000000060006 00000006 00000000600000008 
6942 if - Line Control Register Setup Routine - 
6943 32 This subroutine is used to set the Device Under Test (DUT) Line 
6944 if Control Registers (LNCTRL) to the specified state. Only the LNCTRLS 
oses ;@ for the specified lines ere eltered. 
3% 
6947 3@ INPUTS: RO - New line peremeters. 
6948 78 RS - Bit map of lines to be altered. 
6949 ;* CSRA - Contains eddress of the DUT CSR. 
6950 34 IESTAT - Contains the current state of the TX and RX interrupt 
6951 34 eneble bits in the CSR. 
poe :# LNCTRA - Conteins eddress of the DUT LNCTRL registers. 
34 
one 3# OUTPUTS: LNCTRL - Specified DUT Line Control Registers ere altered. 
34 
6956 3@ CALLING SEQUENCE: JSR PC ,WTWLNC 
6957 3% 
6958 3@ COMMENTS: 
6959 3% 
6960 3@ SUBORDINATE ROUTINES CALLED: ALTFLD. 
6961 fr - 060600000600 0046006000 06 60006000060000000000000000600 0000 0606000000000000008 
6962 
6963 027234 WTWLNC:: SAVE s;SAVE CONTENTS OF GPRS RO THRU RS. 
eens 027234 004537 005326 JSR RS ,PREGOS ;CALL REGISTER SAVE SUBRT. 
3° 
cook ; Set up the peremeters for the call to ALTFLD. 
ge 
6967 027240 013701 002212 MOV LNCTRA,R1 ;SET UP THE REGISTER ADDRESS PARAMETER. 
6968 027244 010002 MOV RO,R2 ;SET UP THE DESIRED REGISTER CONTENTS. 
6969 027246 010503 MOV RS,R3 ;SET UP THE BIT MAP OF LINES TO ALTER. 
or 027250 012704 177777 MOV #-1,R4 ;SELECT ALL REGISTER BITS TO BE ALTERED. 
3? 
ore ; Call the subroutine which elters the register contents. 
6 i- 
oe 027254 004737 015722 JSR PC,ALTFLO sALTER THE REGISTER CONTENTS. 
6976 027260 60$: PASS sRESTORE GPRS. 
027260 004736 JSR PC ,.8(SP)-+ ;RETURN TO PREGOS SUBRT. 
6977 027262 000207 RTS PC 





LL 
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SEQ 0181 
GLOBAL SUBROUTINE - WTWLPR - 
6979 -SBTTL GLOBAL SUBROUTINE - WTWLPR - 
6980 $O+ SERSEEEEEEEESEEEEEEEEEEEEEEE SEEDED ESESESERESEEESEEEDNEDEEDEEEESEESEEEEEEEEE 
6961 i* - Line Peremeter oy ee Setup Routine - 
6982 3% This subroutine is used to set the Device Under Test (DUT) Line 
6983 3@ Perameter Registers (LPR) to the specified state. Only the LPRs for 
tee 34 the specified lines ere eltered. 
je 
- 6986 3;@ INPUTS: RO - New line peremeters. 
6987 3% RS - Bit map of lines to be altered. 
6988 i* CSRA - Conteins eddress of the DUT CSR. 
6989 3% IESTAT - Contains the current state of the TX and RX interrupt 
6990 3* enable bits in the CSR. 
rH 3* LPRA - Contains eddress of the DUT LPR. 
3% 
see 3# OUTPUTS: LPR - Specified DUT Line Peremter Registers ere altered. 
3% 
6995 3@ CALLING SEQUENCE: JSR PC ,WTWLPR 
6996 3% 
6997 3@ COMMENTS: 
6998 3% 
6999 3* SUBORDINATE ROUTINES CALLED: ALTFLD. 
7000 $-- $6060006606006060 000000060006 06060006046 0600600060000000000000000000000000008 
7001 
7002 027264 WTWLPR:: SAVE sSAVE CONTENTS OF GPRS RO THRU RS. 
reas 027264 004537 005326 JSR RS ,PREGOS ;CALL REGISTER SAVE SUBRT. 
3° 
ee ; Set up the peremeters for the cell to ALTFLD. 
t id 
7006 027270 013701 002206 MOV LPRA,R1i ;SET UP THE REGISTER ADDRESS PARAMETER. 
7007 027274 010002 MOV RO,R2 sSET UP THE DESIRED REGISTER CONTENTS. 
7008 027276 010503 MOV RS,R3 sSET UP THE BIT MAP OF LINES TO ALTER. 
nae 027300 012704 177777 MOV #-1,R4 sSELECT ALL REGISTER BITS TO BE ALTERED. 
3¢ 
La ; Call the subroutine which alters the register contents. 
g° 
ag 027304 004737 015722 JSR PC,ALTFLO sALTER THE REGISTER CONTENTS. 
7015 027310 60$: PASS sRESTORE GPRS. 
027310 004736 JSR PC ,@CSP)-+ sRETURN TO PREGOS SUBRT. 
7016 027312 000207 RTS PC 
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INTERRUPT SERVICE ROUTINE - CLKINT - 


SEQ 0182 





7018 -SBTTL INTERRUPT SERVICE ROUTINE - CLKINT - 
7019 5% SO00O00006 0000 0000000000600000000000000000000000000000000000001500000000000 
7020 ie This routine is executed CLKHRZ times per second. It decrements the 
wees is two timer counters down to zero. 
34 
7023 3@ INPUTS: TIMER1 - Timer counter @1. 
7024 3¢ TIMER2 - Timer counter @2. 
roo 3¢ TIMERS - Timer counter for cell of BREAK mecro. 
3¢ 
i 4 3@ OUTPUTS: The 2 timer counters ere decremented if they ere not zero. 
3% 
7029 s@ CALLING SEQUENCE: Put @CLKINT in the clock interrupt vector slot. 
7030 34 Put the desired tine iod (seconds times CLKHRZ) in 
7031 34 either TIMER1 or T 2 end poll the respective tiner 
Hen pe counter to detect its going to 0 on time-out. 
3% 
7034 3% COMMENTS: The 2 counters will not wreperound but will stop et 0. This 
7035 34 ellows the detection of e time-out ony time efter the tiae-out 
west 3% hes occurred until the timer counter is set to another velue. 
34 
7038 s# SUBORDINATE ROUTINES CALLED: None. 
7039 b-~ S006666066006000060000060006000000000060000000000000000000000000000000000008 
7040 
7041 027314 005737 002302 CLKINT:: TST TIMER sCHECK FOR TIMER1 AT ZERO. 
7042 027320 001402 BEQ 23 sBRANCH TO LEAVE IT AT ZERO IF IT IS ZERO. 
7043 027322 005337 002302 DEC TIMER1 sDECREMENT TIME COUNT. 
7044 027326 005737 002304 2s: TST TIMER2 sCHECK FOR TIMER2 AT ZERO. 
7045 027332 001402 BEQ 4s sBRANCH TO LEAVE IT ALONE IF IT’S ALREADY ZERO. 
7046 027334 005337 002304 DEC TIMER2 sDECREMENT TIME COUNT. 
7047 027340 005337 002306 4$: DEC TIMERS sDECREMENT THE BREAK COUNT. 
7048 027344 001006 BNE 60% sEXIT IF NOT TIME TO CALL BREAK. 
7049 027346 013737 002310 002306 MOV BCOUNT, TIMERS ;SET UP TIME TILL NEXT BREAK. 
7050 027354 010046 MOV RO, -(SP) sSAVE CONTENTS OF RO FROM BREAK MACRO. 
7051 027356 BREAK sCHECK FOR OPERATOR CONTROL/C. 
027356 104422 TRAP C#BRK 
7052 927360 012600 MOV (SP)+,RO sRESTORE CONTENTS OF RO. 
7053 027362 000002 60%: RTI 
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SEQ 0183 

INTERRUPT SERVICE ROUTINE - RXCHRS - 
7055 -SBTTL INTERRUPT SERVICE ROUTINE - RXCHRS - 
7056 tee SOOO 006606000006 00 6660060006 000606000000600600000000000006060000000006000000 
7057 36 - DMA RECEIVE Interrupt Service Routine - 
7058 34 This routine executes in response to en interrupt ceused by the DUT 
7059 34 RX.DATA.AVAIL bit becoming active. This routine reads cherecters from 
7060 36 the DUT receive cherecter FIFO and deposits them into the receive 
7061 3* buffer in memory. If the number of cherecters in the receive buffer 
7062 34 exceeds @ specified threshold, trensmission is helted (by clearing ell 
7063 34 DUT TX.ENABLE bits) and if the receive buffer is full reception is 
7064 3¢ halted (by disebling RX interrupts). The routine exits if the receive 
7065 34 buffer becomes full or if a cherecter is read from the FIFO with the 
Les ;¢ DATA.VALID bit cleer. 
06 34 
7068 3@ INPUTS: RBUFA - Contains address of the DUT RX cherecter FIFO. 
7069 34 RXBCNT - RX buffer cherecter count. 
7070 34 RXBDTX - Equeted to RX buffer level at which to disable We. 
7071 :¢ RXBEND - Lebel efter end of the RX buffer eres in memory. 
7072 34 RXBFUL - Equeted to the capacity of the RX buffer. 
7073 34 RXBIPT - Pointer to next eveileble input slot of RX buffer. 
or 3¢ RXBSTA - Lebel et start of RX buffer area in memory. 
707 3¢ 
7076 3@ OUTPUTS: RXBIPT - Updated to point to next input slot of RX buffer. 
7077 i RXBCNT - RX buffer character count (Incremented). 
7078 34 TXENBM - Map of previous DUT TX.ENABLE states. 
oa 34 CARRY - “Success” fleg (Set if buffer is not full). 
080 34 
7081 3@ CALLING SEQUENCE: Put the eddress of the lebel RXCHRS in the vector 
7082 3* location. 
7083 hd 
7084 3 COMMENTS: If the RX buffer is full upon entry, this routine aborts the 
7085 34 program. 
7086 3% 
7087 s# SUBORDINATE ROUTINES CALLED: RXIEO, TXDSBL. 
7088 t-- 86006660666 660660060606 6600060006 60000600000000000000000000000000004000008 
7089 
7090 027364 010246 RXCHRS: : MOV R2,-(SP) sSAVE CONTENTS OF GPR R2. 
7091 027366 017702 152612 23: MOV QRBUFA,R2 sREAD A CHARACTER FROM THE DUT RX FIFO. 
oe 027372 100054 BPL 60$ sEXIT THE ROUTINE IF THE DATA. VALID BIT IS CLR. 
709 
7094 027374 023727 002720 000100 CMP RXBCNT,@RXBFUL ;COMPARE BUFFER COUNT WITH BUFFER CAPACITY. 
7095 027402 103402 BLO 48 sSKIP ABORT IF BUFFER IS NOT FULL. 
7096 027404 004737 022364 JSR PC OOPS s;ABORT, MUST BE A PROGRAM BUG. 
7097 027410 010277 153302 4$; MOV R2,ORXBIPT sPUT THE CHAR IN THE BUFFER. 
7098 027414 062737 000002 002716 ADD #2 ,RXBIPT sUPDATE POINTER TO THE NEXT BUFFER SLOT. 
7099 027422 023727 007716 003122 CMP RXBIPT,@RXBEND ;CHECK IF POINTER SHOULD WRAP AROUND. 
7100 027430 103403 BLO 63 ;SKIP WRAPAROUND IF POINTER IS NOT AT END. 
7101 027432 012737 002722 002716 MOV @RXBSTA,RXBIPT ;WRAP INPUT POINTER AROUND. 
7102 
7103 027440 005237 002720 6$: INC RXBCNT sCOUNT THIS CHARACTER AS BEING IN THE BUFFER. 
7104 027444 023727 002720 000030 CMP RXBCNT,@RXBDTX ;CHECK FOR BUFFER AT DISABLE TX LEVEL. 
7105 027452 001016 BNE 8$ sSKIP DISABLING TX IF BUFFER LEVEL NOT CORRECT. 
7106 027454 005737 002510 TST TXDBLF sCHECK STATE OF TX DISABLE FLAG. 
7107 027460 100413 BMI 8$ sBRANCH IF TRANSMISSION ALREADY DISABLED. 
7108 027462 010546 MOV R5,-(SP) sSAVE THE VALUE OF GPR RS. 
7109 027464 012705 000377 MOV @MAPLNS ,RS sSPECIFY THAT ALL LINES SHOULD BE AFFECTED. 
7110 027470 004737 025552 JSR PC, TXDSBL sCLEAR THE TX ENABLES FOR ALL LINES. 
7111 027474 010537 002250 MOV RS, TXENBM sSAVE PREVIOUS TX ENABLE STATES IN STORAGE. 
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INTERRUPT SERVICE ROUTINE 


7112 027500 


7115 027510 
suse 027516 


& 


012605 
012737 


023727 
103723 


004737 
012602 
000002 


100000 
002720 


024650 





- RXCHRS - 


002510 MOV 
000100 8%: CMP 


60$: MOV 


(SP)+,RS 
61T1S, TXDBLF 


— » ORXBF UL 
$ 


PC, ,RXIEO 
(SP)+,R2 


Page 129-1 





SEQ 0184 
sRESTORE GPR RS. 
sPREVENT TX FROM BEING DISABLED AGAIN. 


sCHECK FOR BUFFER FULL CONDITION. 
sLOOP TO READ ANOTHER CHAR IF BUFFER NOT FULL. 


sBUFFER IS FULL, DISABLE RX INTERRUPTS. 
sRESTORE R2 TO ITS SAVED VALUE. 





| CVANTNAA Nwvtit_M Cilme TCT DCADT @ MACON WAC AA 


ee 


afr «a. «© sac 8% 
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SEQ 0185 
TRAP SERVICE ROUTINE - TP4BRT - 

7123 -SBTTL TRAP SERVICE ROUTINE - TP4BRT - 

7124 § 960066006 66 6606060606006 066 6606606666066 066 60066066 006466060066660606 4646606646 64660464664644608 
7125 34 Bus Time-out Trap (004 trap) Service Routine - 

7126 34 This routine is used during the DMA ADDRESS TEST. 

7127 ;* It determines if the 004 trap wes caused by en “expected” error or 
7128 34 not by examining the return PC value on the stack. If the trap is 
7129 3¢ unexpected, this routine jumps to the normal Diagnostic Supervisor 
supe 34 004 trap handling routine. 

131 34 
7132 3¢@ INPUTS: SP - Points to the PC where the trap occured. 
7133 34 TRPAD2 - Label at the address where “expected” traps occur. 
7i38 34 TP4FLG - 004 trap flags. 

135 34 
hp 3@ OUTPUTS: TP4FLG - Bit 15 is set if “expected” trap occured. 

137 34 
7138 3# CALLING SEQUENCE: Put address pointed to by TP4BRT in 004 vector. 
fone 34 Occurence of 004 trap vectors to this routine. 

140 3¢ 
7141 3; COMMENTS: Any 004 trap which occurs at an address other than that labeled 
7142 34 TRPAD2 will be handled by the normal 004 trap service routine. 
pees 34 This routine is used in conjunction with CKTRPB subroutine. 
144 3% 
7145 3# SUBORDINATE ROUTINES CALLED: None. 
7146 § 9 066040666406660066 600606466446 6666 6606600040406 6606046040606 04606064646 056%20600046004000% 
7147 
7148 027530 021627 017216 TP4BRT:: CMP (SP), @TRPAD2 sCOMPARE EXPECTED ADDR WITH TRAP RET PC. 
7149 027534 001402 BEQ 2s IF THEY MATCH, CONTINUE THIS ROUTINE. 
7150 027536 000177 152512 JMP STP4VEC 3;IF NOT, JUMP TO NORMAL 004 TRAP SERVICE RIN. 
7151 027542 052737 100000 002256 23: BIS $B1IT15,TP4FLG ;SET THE 004 TRAP OCCURED FLAG. 
7152 027550 000002 RTI ;ALL DONE, GO BACK TO THE TEST. 


—— 
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GLOBAL TRAP SERVICE ROUTINE 


7178 027552 
7179 027556 
7180 027560 
7181 027564 
7182 027572 








021627 





017166 


152470 
100000 002256 


- TP4RTN - 





-SBTTL GLOBAL TRAP SERVICE ROUTINE - TP4RTN - 
§ POSSE OOOO86 666604000606 0046 06 0606060000000000006000000000000000000000000080004 


34 Bus Time-out Trap (004 trap) Service Routine - 

34 This routine is used during the Device Register Address Access Test. 
3% It determines if the 004 trap was caused by an “expected” error or 

34 not by «xamining the return PC velue on the stack. If the trap is 

34 unexpected, this routine jumps to the normal Diagnostic Supervisor 

34 004 trap handling routine. 

34% 

3@ INPUTS: SP _- Points to the PC where the trap occured. 

3* ADRPTR - Label at the address where “expected” traps occur. 

34 TP4FLG - 004 trap flags. 

34 

3# OUTPUTS: TP4FLG - Bit 15 is set if “expected” trap occured. 

3% 

3# CALLING SEQUENCE: Put address pointed to by TP4RTN in 004 vector. 

73 Occurence of 004 trap vectors to this routine. 

3% 

3* COMMENTS: med 004 trap which occurs at an address other than that labeled 
34 ADRPTR will be handled by the normal 004 trap service routine. 
at 


s# SUBORDINATE ROUTINES CALLED: None. 
§ FOS SOEE 666666665606 604006006006 0006600006 000000 0000000006000000000000000000400 


TP4RTN:: CMP  aneammaaenthie sCOMPARE EXPECTED ADR AGAINST TRAP RET PC. 
$ 


2s: 


BEQ sIF THEY MATCH, CONTINUE THIS ROUTINE. 

JMP OTP4VEC sIF NOT,JUMP TO NORMAL 004 TRAP SERVICE RIN. 
BIS @BIT1S,TP4FLG ;SET THE 004 TRAP OCCURED FLAG. 

RTI sALL DONE, GO BACK TO THE TFST. 
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: SEQ 0187 
INTERRUPT SERVICE ROUTINE - TXDMA - 
7184 -SBTTL INTERRUPT SERVICE ROUTINE - TXDMA - 
7185 $O¢ B600660000 000006 666460000004666006000006 66 06 0600000000006000000000006000000088 
7186 34 - DMA Transmit Interrupt Service Routine - 
7187 ye This routine executes in response to an interrupt caused by the DUT 
7188 3% TX.ACTION bit becoming active. This routine initiates the "ty of a 
7189 ;@ new DMA buffer of characters or sets the TX Done Flag for the correct 
feos 3% line if TX is complete on thet line. 
191 3% 
7192 3@ INPUTS: BITTBL - Label of table of words each with a bit set. 
7193 34 CNCNTB - Base of @ of chars to TX/RX table. 
7194 34 CSRA - Contains the address of the DUT CSR. 
7195 3% DPENDB - Base of the date pattern end table (entry per line). 
7196 3% DPLENS - Base of the data pattern length table. 
7197 3% IESTAT - Preserved states of the DUT interrupt enable bits. 
7198 34 TXCNTB - Leable at base of the TX character counter table. 
ree ;* TXPTRB - Label at base of the TX date pattern pointers table. 
3* 
7201 :# OUTPUTS: TXCNTx - Counters incremented for lines on which chars sent. 
7202 :¢ TXDONF - TX done flags set for lines which have sent all chars. 
ne 3* TXINTF - TX int flags (bit set if DMA.HO found set on line). 
204 33 
7205 3@ CALLING SEQUENCE: Put the address of the label TXDMA in the vector 
7206 ;* location. 
7207 td 
7208 3* COMMENTS: 
7209 3% 
7210 3* SUBORDINATE ROUTINES CALLED: DODMA. 
7211 Fr > 8880406466668 666060066464 466 0466646066 006006000604046460646 0646000046046 4460400804644 4040488 
7212 
7213 027574 TXDOMA:: SAVE sSAVE CONTENTS OF GPRS RO THRU RS. 
027574 004537 005326 JSR RS ,PREGOS ;CALL REGISTER SAVE SUBRT. 
7214 027600 017701 152376 MOV OCSRA,R1 ;READ THE CONTENTS OF THE DUT CSR. 
7215 027604 010100 MOV R1,RO sSAVE INITIAL CONTENTS OF IND.ADR.REG FIELD. 
— 027606 000402 BR 43 ;BRANCH TO SKIP DOUBL READING OF DUT CSR. 
3° 
7218 ; Read the contents of the DUT CSR. This will clear the TX.ACTION CSR bit. 
7219 ; If TX.ACTION is not set, exit this routine. 
7220 ; Determine the line for which the TX.ACTION was set. 
7221 ; Calculate an offset for use in accessing tables (2 times the line number). 
7222 ; Get the bit map of this line. 
7223 ie 
7224 027610 017701 152366 2s: MOV @CSRA,R1 ;READ THE CONTENTS OF THE DUT CSR. 
7225 027614 100033 4$: BPL 60$ s;EXIT ROUTINE IF TX.ACTION IS CLEAR. 
7226 027616 000301 SWAB Ri ;CALCULATE THE LINE NUMBER OF THE LINE WHICH IS 
7227 027620 042701 177760 BIC $177760,R1 ; ASSOCIATED WITH THE TX.ACTION. 
7228 027624 010104 MOV R1,R4 ei-r~ AN OFFSET FOR USE IN ACCESSING 
7229 027626 006304 ASL R4 LINE COUNTER AND POINTER IN TABLES. 
ro 027630 016405 002366 MOV BITTBLC(R4) RS iGET THE BIT MAP OF THIS LINE. 
231 3° 
7232 ; Get the TX character counter for this line. 
7233 ; If all the characters have been sent for this line: 
7234 H Set the TX done flag for this line. 
7235 ; Don't send a char to the line (no more TX.ACTIONS on this line). 
oes : Loop to check the TX.ACTION for another line. 
;- 
7238 027634 026464 003504 003444 CMP TXCNTBC(R4),CHCNTBC(R4) ;COMPARE @ CHARS SENT AND TX COUNT. 
7239 027642 103403 BLO 6$ ;GO TO SEND A CHAR IF NOT ALL CHARS SENT. 




















CVDHCDO DHV11-M FUNC TST PART 3 MACRO VOS.00 Thursday 25-Apr-85 16:37 Page 132-1 


SEQ 0188 
INTERRUPT SERVICE ROUTINE - TXDMA - 
7240 027644 050537 002504 BIS RS, TXDONF ;SET THIS LINE’S TX DONE FLAG. 
aos 027650 000757 BR 23 ;LOOP TO CHECK TX.ACTION AGAIN. 
242 i+ 
7243 ; Start the DMA of the next buffer (data pattern) on this line. 
7244 ; Get the data pattern length for this line. 
coe : Get the start address of the date pattern. 
2 3° 
7247 027652 016403 003204 6$: ° MOV DPLENB(R4),R3 sPASS DATA PATTERN LENGTH FOR LINE TO DODMA. 
ik oe 027656 016402 003344 MOV TXPTRB(24),R2 ;PASS THE TX START ADR TO DODMA. 
;¢ 
cose ; Write DMA parameters to the DUT. 
1 $- 
7252 027662 004737 017610 JSR PC ,DODMA 
cas 027666 103403 BCS 8$ s;SKIP ERROR IF DODMA WAS SUCCESSFUL. 
3¢ 
yeas ; Set the proper bit of the TX interrupt flags to indicate the line error. 
> 
7257 027670 050537 002252 BIS RS, TXINTF sINDICATE THE ERROR. 
i 027674 000402 BR 10$ sSKIP UPDATING POINTERS AND COUNTERS. 
9 3+ 
7260 ; Update the TX character for this line. 
7261 ; Update the TX buffer pointer for this line. 
7262 3° 
7263 027676 060364 003504 8$: ADD R3, TXCNTBCR4) ;ADD THE DATA PAT LENGTH TO THE TX COUNT. 
7264 3+ 
es ; Loop to check the TX.ACTION bit for another line. 
266 8- 
at 027702 000742 10$: BR 2$ ;LOOP BACK TO CHECK TX.ACTION BIT AGAIN. 
268 
7269 027704 013701 002234 60$: MOV IESTAT,R1 ;GET THE PRESENT STATES OF TX.IE & RX.IE BITS. 
7270 027710 042700 177760 BIC #177760,RO0 ;GET SAVED IND.ADR.REG FIELD BITS. 
7271 027714 050001 BIS RO,R1 ;COMBINE IND.ADR.REG FIELD BITS WITH IE BITS. 
7272 027716 010177 152260 MOV R1,@CSRA sRESTORE THE DUT CSR IND.ADR.REG FIELD. 
7273 027722 PASS sRESTORE GPRS. 
027722 004736 JSR PC ,A(SP)+ ;RETURN TO PREGOS SUBRT. 
7274 027724 000002 RTI 





—— 











CVDHCOO DHV11-M FUNC TST PART 3 MACRO VOS.00 Thursday 25-Apr-85 16:37 Page 133 


SEQ 0189 
INTERRUPT SERVICE ROUTINE - TXSCHR - 
7276 -SBTTL INTERRUPT SERVICE ROUTINE - TXSCHR - 
7277 $+ C8O6O000 060000000604 06 00 66 66 06000000000006000000 600606000004 000000000060008 
7278 34 - Single Character Mode Transmit Interrupt Service Routine - 
7279 3% This routine executes in response to an iterrupt caused by the DUT 
7280 34 TX.ACTION bit pgoenian active. This routine sends the next TX char 
7281 3% or sets the TX Done Flag for the correct line if TX is complete on 
7282 3* thet line. 
7283 3% 
7284 3* INPUTS: ACTLNS - Bit map of active DUT lines. 
7285 3% BITTBL - Lebel of table of words each with a bit set. 
7286 3* CHCNTB - Base of @ of chars to TX/RX table. 
7287 3% CSRA - Contains the address of the CSR. 
7288 3* DPENDB - Base of the data pattern end table (entry per line). 
7289 3¢ DPLENS - Base of the date pattern length table. 
7290 3* IACBIT - Bit mask of inactive TX/RX bits. 
7291 3% IBM - Inactive bits mask (reflecting bits per char). 
7292 3% TXCHRA - Contains the address of the DUT TXCHAR register. 
7293 3% TXCNTB - Label at base of TX character counters table. 
sees pe TXPTRB - Label at the base address of the TX pointers table. 
3% 
7296 3# OUTPUTS: CSR - DUT CSR IND.ADR.REG field is destroyed. 
7297 3* TXCHAR - DUT TXCHARs have words written to them. 
7298 ;* TXCNTx - Counters incremented for lines on which chars sent. 
7299 3* TXDONF - TX done flags set for lines which have sent all chars. 
reee ;* TXPTRB - Each pointer in table points to next TX char for line. 
1 3% 
7302 3# CALLING SEQUENCE: Put the address of the label TXSCHR in the vector 
7303 3* location. 
7304 3% 
7305 3* COMMENTS: 
7306 3% 
7307 ;# SUBURDINATE ROUTINES CALLED: None. 
7308 POM TIT rir Titi tit titi titi tt ett tt ttt TT TTT TTT TTT TTT TTT TTT TTT TTT TTT TTT TTT TTT TTT 
7309 a 
7310 027726 TXSCHR:: SAVE sSAVE CONTENTS OF GPRS RO THRU RS. 
027726 004537 005326 JSR RS ,PREGOS ;CALL REGISTER SAVE SUBRT. 
7311 027732 017701 152244 MOV @CSRA,R1 ;READ THE CONTENTS OF THE DUT CSR. 
7312 027736 010105 MOV R1i,R5 ;SAVE THE CONTENTS OF THE DUT IND.ADR.REG 
7313 027740 042705 137660 BIC #137660,R5 ; FIELD FOR RESTORATION BEFORE RETURN. 
7314 027744 010546 MOV R5,-(SP) ;SAVE THE DUT IN.ADD FIELD ON THE STACK. 
7315 027746 005005 CLR RS ;CLEAR CHARACTER TRANSMISSION COUNTER. 
7316 027750 005701 TST R1 ;SET FLAG FOR TEST AFTER THE FOLLOWING BRANCH. 
7317 027752 000402 BR 4s 3GO HANDLE THE LINE THAT GOT THE TX.ACTION. 
7318 3+ 
7319 ; Read the contents of the DUT CSR. This will clear the TX.ACTION CSR bit. 
7320 ; If TX.ACTION is not set, exit this routine. 
7321 ; Determine the line for which the TX.ACTION was set. 
7322 ; Calculate an offset for use in accessing tables (2 times the line number). 
Lh ; Determine the states of the DUT CSR interrupt enable bits. 
7324 8° 
7325 027754 017701 152222 2s: MOV @CSRA,R1 ;READ THE CONTENTS OF THE DUT CSR. 
7326 027760 100051 4$: BPL 60$ sEXIT ROUTINE IF TX.ACTION IS CLEAR. 
7327 027762 010102 MOV R1,R2 sCALCULATE THE LINE NUMBER 
7328 027764 000302 SWAB R2 ; OF THE LINE WHICH IS 
7329 027766 042702 177760 BIC #177760,R2 ; ASSOCIATED WITH THE TX.ACTION. 
7330 027772 010203 MOV R2,R3 ;CALCULATE AN OFFSET FOR USE IN ACCESSING 
7331 027774 006303 ASL R3 ; LINE COUNTER AND POINTER IN TABLES. 
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INTERRUPT SERVICE ROUTINE 


7332 027776 042701 137677 


7333 


— 





030002 
030010 
030012 
030020 


030110 
030112 


026363 
103404 
056337 
000757 


050201 
010177 
016304 
112400 
020463 
103402 
166304 
010463 
043700 
052700 
010077 
005205 
005263 


020527 
103724 
012677 


004736 
000002 


003504 
002366 


152152 
003344 


003144 
003204 
003344 
002226 
100000 
152114 


003504 


000010 
152072 





- TXSCHR - 


BIC #137677,R1 sGET BIT MASK OF INTERRUPT ENABLE STATES. 
3¢ 


; Get the TX cheracter counter for this line. 

; If all the characters have been sent for this line: 

; Set the TX done fleg for this line. 

3 Don't send a char to the line (no more TX.ACTIONS on this line). 
; Loop to check the TX.ACTION for another line. 


es 
CMP TXCNTBCR3),CHCNTBCR3) ;COMPARE TX CHAR COUNT AND @ TO TX. 
6$ sGO TO SEND A CHAR IF NOT ALL CHARS SENT. 
BIS BITTBLCR3), TXDONF sSET THIS LINE'S TX DONE FLAG. 
BR 4$ sLOOP TO CHECK TX.ACTION AGAIN. 


3¢ 

; Send the next char to the specified line. 

Set up the IND.ADR.REG field of the DUT CSR using the previously read 
states of the interrupt enable bits. 

Fetch the correct character from the date pattern. 

Update the date pattern pointer for this line using wraparound. 

Mask out inactive date bits and send the character. 

Count the charecter on the TX cher counter for the line. 

Decrement the FIFO slack count to reserve room for this char in the FIFO. 

Exit if a maximum of 8 characters have been transmitted, ie.give reception 

e chance to remove characters from the FIFO. 


Gree oe ae oe oe oe ae oe oe oe 


1 
ao 
al 
wn 


R2,R1 sSET UP THE IND.ADR.REG FIELD OF THE DUT CSR 
MOV R1,@CSRA ; WITHOUT AFFECTING THE INTERRUPT ENABLES. 
MOV TXPTRB(R3),R4 ;FETCH THE TX POINTER FOR THIS LINE. 
MOVB (R4)+,RO sGET THE NEXT CHAR FOR THIS LINE. 


CMP — sCOMPARE POINTER WITH END OF DATA PATTERN. 


BLO sSKIP RESETTING OF POINTER IF NOT PAST END. 
SUB DPLENB(R3),R4 sWRAP POINTER AROUND TO BEGINNING OF PATTERN. 
8$: MOV R4, TXPTRBCR3) sUPDATE THE TX POINTER FOR THIS LINE. 
BIC IBM,RO ;CLEAR UNUSED BITS OF THE TX CHAR WORD. 
BIS #BIT15,R0 sSET THE TX.DATA.VALID BIT OF TX CHAR WORD. 
MOV RO,@TXCHA ;SEND THE CHAR TO THE DUT. 
INC RS sINCREMENT TX CHAR COUNT. 
INC TXCNTBC(R3) s INCREMENT THE TX CHAR COUNT FOR THIS LINE. 
3¢ 
; Loop to check the TX.ACTION bit for another line. 
CMP RS, @NUMLNS ;CHECK IF MAX NUMBER OF CHAR HAVE BEEN TX'D. 
BLO 2$ ;LOOP BACK TO CHECK TX.ACTION BIT AGAIN. 
60$: MOV (SP)+,@8CSRA sRESTORE THE IND.ADR.REG FIELD OF THE DUT CSR. 
PASS s;RESTORE GPRS. 
_ JSR PC,a(SP)+ s;RETURN TO PREGOS SUBRT. 





SEQ 0190 
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INTERRUPT SERVICE ROUTINE - TXSCHR - 


SEQ 0191 


7379 Hh Sal ahalahalalaiabalalaiatainlalalaistalalsistaislsiniiainintnininininininiiisiitiii ti iit Let eee ieee ee Cette ti ttt tt tt tt 


a 
7381 ; VOHC .RPT 
° 
Fh bl halalatalatahainhalalalalainlaitaintaiainialaitaistnisinininintnistiit iti iil ete titi te Ltt ete Tit tt ett tit ttt] 


7387 -SBTTL REPORT CODING SECTION 


34 
7390 ; THE REPORT CODING SECTION CONTAINS THE 
Hh ; “PRINTS” CALLS THAT GENERATE STATISTICAL REPORTS. 
92 s-- 


7394 030114 BGNRPT 
030114 L$PPT:: 

7395 

7396 030114 EXIT RPT 
030114 000167 -WORD J$JMP 
030116 000000 -WORD L10016-2-. 


7398 -EVEN 
7400 030120 ENDRPT 
030120 104425 


— 
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PROTECTION TABLE 


—— 


nn 


030122 
030122 


030122 
030124 
030126 


030130 


177777 
177777 
177777 


-SBTTL PROTECTION TABLE 


3+ 
; THIS TABLE IS USED BY THE RUNTIME SERVICES 
; TO PROTECT THE LOAD MEDIA. 


BGNPROT 


FVTSKL4.P1i1 


L$PROT:: 


sOFFSET INTO P-TABLE FOR CSR ADDRESS 


sOFFSET INTO P-TABLE FOR MASSBUS ADDRESS 
sOFFSET INTO P-TABLE FOR DRIVE NUMBER 





SEQ 0192 


| J halalatalatalalelaiabalalnintaininiiaistailaintnalsistnisinininislintieit iit tier e eee Tet eT et Ti Ett tit ttt 
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SEQ 0193 
PROTECTION TABLE 
7439 
te SACS AAAKAKAA AAA KAKA AA AA AA AKASAKA AKASAKA AK CEA AKASAKA SK SEEK AAKAKK ASLAN 
441 H 
7442 : VOHC . INI 
7443 F 
foes j, PUCMSSAASKGAASS A AKAN SHAR KAMA AAA MAA Aa SKHHAAAK AKAD KKK AA SKA NADAS AKAMA aK we eS 
44 
7446 
7447 
7448 -SBTTL INITIALIZE SECTION 
7449 ze 
7450 3286286 6606 66 06 6066004606666 0660060606606 0606460600066 0004606 600000466 04460464846460646404664040046864 
7451 3* This section conteins the code which is performed at the beginning of 
7452 3% each pess or efter a continue commend. 
= 34 This code performs the following actions: 
3% 
7455 34 Moves the information held in the hardware P-table into the globel 
7456 3% date erea. 
7457 pe 
7458 § 2000860466 6606606006 60664664866 60640646 66664606006 06 600006 000060466 460446404600 646046 046404 
7459 gee 
7460 030130 BGNINIT 
020130 L$INIT:: 
7461 ;SEE IF PROGRAM JUST STARTED, BR IF YES 
7462 030130 READEF @#€F.START 
030130 012700 000040 MOV EF .START,RO 
030134 104447 TRAP CSREFG 
7463 030136 BCOMPLETE NEWSTA 
030136 103416 BCS NEWSTA 
7464 ;SEE IF PROGRAM JUST RESTARTED, BR IF YES 
7465 030140 READEF #€F .RESTART 
030140 012700 000037 MOV @EF .RESTART,RO 
030144 104447 TRAP C$REFG 
7466 030146 BCOMPLETE NEWRES 
030146 103555 Bcs NEWRES 
7467 ;SEE IF THIS IS A NEW PASS, BR IF YES 
7468 030150 READEF #€F.NEW 
030150 012700 000035 MOV EF .NEW,RO 
030154 104447 TRAP CSREFG 
7469 030156 BCOMPLETE NEWP AS 
030156 103554 6cS NEWP AS 
7470 ;SEE IF PROGRAM WAS JUST CONTINUED 
7471 030160 READEF #€F .CONTINUE 
030160 012700 000036 MOV EF . CONTINUE ,RO 
030164 104447 TRAP CSREFG 
7472 030166 BNCOMPLETE GETPRM 
030166 103160 Bcc GETPRM 
7473 030170 000137 030750 JMP ENDIT 
7474 030174 NEWSTA: 
7475 030174 BRESET sRESET THE BUS TO PREVENT ILLEGAL INTERRUPTS. 
030174 104433 TRAP CSRESET 
7476 3° 
ied ; Set up for Line Time Clock interrupts. 
- 
7479 030176 CLOCK L,Ri ;GET THE CLOCK PARAMETERS. 
030176 012700 000114 MOV #'L,RO 
030202 104462 TRAP CsCLCK 


















030204 
7480 030206 
7481 030212 
7482 030216 
7483 030222 


7490 030302 
7491 030306 
7492 030310 


7494 


7499 030320 
7500 030326 


7504 030334 
7505 030340 
7506 030346 
7507 030352 
7508 030356 
7509 030362 
7510 030370 
7511 030372 
Le a | 030376 


5 
ve 030400 


7522 030412 
7523 030420 
7524 030424 
7525 030430 
7526 030434 
7527 030440 
7528 030444 
7529 030450 





012737 
012746 


013737 
012737 


004737 


013737 


015774 
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002254 
000004 


002254 
000004 


SEQ 0194 













MOV RO,R1 
MOV (R1)+,CLKCSR sSTORE CLOCK CSR ADDRESS. 
MOV (R1)+, CLKBRL sSTORE CLOCK BUS REQ INT LEVEL. 
MOV (R1)+,CLKVEC sSTORE CLOCK INTERRUPT VECTOR. 
MOV (R1)+, CLKHRZ sSTORE CLOCK FREQUENCY. 
CMP CLKHRZ, #50. sTEST FOR SOHZ LINE FREQUENCY. 
BNE 2$ sBRANCH IF CLOCK IS NOT SOHZ. 
= eo sINDICATE 20MS PER CLOCK TICK. 













2s: MOV #17. ,MSTICK sINDICATE 17 MS PER CLOCK TICK. 
4$: SETVEC CLKVEC, @CLKINT , @PRIO6 SINITIALIZE CLOCK INTERRUPT VECTOR. 
MOV @PRIOG , - (SP) 
MOV @CLKINT, -(SP) 
MOV CLKVEC, -(SP) 
MOV @3,-(SP) 
TRAP C#SvEC 
AOD #10, SP 
MOV CLKHRZ,RO Yon e THE pean COUNT 
ASR RO s TO CAUSE A BRE 
MOV RO ,BCOUNT s EVERY 1/2 SECOND. 
MTPS @PRIOS sALLOW CLOCK INTERRUPTS DISABLE OTHERS. 






"Enable the Line Time Clock (LTC) checking to make sure thet the CSR 
; is accessable. 
; First set up to catch any 004 traps which occur: 


i- 

MOV 004, TP4VEC sSAVE THE EXISTING 004 TRAP VECTOR. 

MOV @TP4RTN, 004 sSET 004 TRAP VECTOR TO OUR SERVICE RTN ADR. 
3*¢ 


: Enable LTC checking for 004 trap in cese CSR is not there. 



















CLR TP4FLG sCLEAR THE 004 TRAP FLAG. 
MOV @6IT6,WORDI sSET UP TO SET BIT6 OF THE LTC CSR. 
MOV @WORD1 ,RO sSET UP WORD1 AS THE CKTRAP MOVE SOURCE. 
MOV CLKCSR,R1 sSET UP LTC CSR AS DESTINATION FOR CKTRAP MOVE. 
JSR PC ,CKTRAP sMOVE AND CHECK FOR TRAP. 
MOV TP4VEC 004 sRESTORE THE NORMAL 004 TRAP VECTOR. 
BCS 6% sIF NO TRAP, LTC IS THERE SO CONTINUE. 
CLR CLKHRZ sCLEAR LTC FREQUENCY WORD TO INDICATE NO LTC. 
BR 83 sBYPASS THE FOLLOWING CALIBRATION PROCEDURES. 
3¢ 
s Calibrate the DELAY routine milli-second delay count velue. 
g= 
6%: JSR PC ,CALMSL 






3¢ 
+ Check for Memmory Management present on this machine. 
' If MEM MGT is Soneenih, diseble it. 





















8s: MOV 004, TP4VEC sSAVE THE EXISTING 004 TRAP VECTOR. 
MOV @TP4RTN, 004 sSET 004 TRAP VECTOR TO OUR SERVICE RTN ADR. 
CLR TP4FLG sCLEAR THE 004 TRAP FLAG. 
CLR WORD1 sPREPARE TO CLEAR THE MEM MGT SRO REGISTER. 
MOV @WORD1 ,RO sSELECT CLEARED WORD AS CKTRAP RTN SOURCE. 
MOV MMSRO,R1 sSELECT MEM MGT SRO REGISTER AS DESTINATION. 
CLR MMPRES sINDICATE NO MEM MGT PRESENT IN CASE IT ISN'T. 
CLR MMENAB sINDICATE MEM MGT IS NOT ENABLED. 
JSR PC ,CKTRAP sCLEAR THE MEM MCT SRO REG AND CHECK FOR TRAP. 




















7530 030454 
7531 030462 


7540 030510 

































013737 


112137 


013701 


002254 


000001 
002236 
030510 


002236 


177777 


002236 
002236 


002200 
002200 


002200 


000007 


002322 


002200 


002012 
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INITIALIZE SECTION 


10$: 


NEWPAS : 


3¢ 
s Increment the pess counter, correct for eny overflow. 
This counter is used in the Rom version test. 


; GET THE HARDWARE PARAMETERS FOR THIS UNIT. 
GETPRM: 


308%: 


128: 


NEWRES: BRESET 


SEQ 0195 









TP4VEC 004 sRESTORE THE NORMAL 004 TRAP VECTOR. 


Bcc 10% sSKIP INDICATING MEM MGT PRESENT IF IT ISN’T. 
MOV #1 ,MMPRES sINDICATE THAT MEM MGT IS PRESENT. 

CLR PASCNT sCLR COUNTER USED IN REPORTING ROM VERSION @. 
JMP NEWPAS sSKIP AROUND THE BUS RESET, IT'S BEEN DONE. 






sRESET THE BUS TO PREVENT ILLEGAL INTERRUPTS. 
TRAP CSRESET 
CLR PASCNT sCLR COUNTER USED IN REPORTING ROM VERSION @. 






MOV #-1,UNITN sRESET LOGICAL DEVICE TO -1 


INC PASCNT sINCREMENT THE PASS COUNTER. 
BNE GETPRM sBRANCH IF WE HAVE NOT YET! OVERFLOWED. 
DEC PASCNT sSET PASS COUNT TO 177777 OCTAL. 


INC UNITN sINCREMENT LOGICAL DEVICE NUMBER 
CMP UNITN, L$UNIT sSEE IF MAXIMUM UNIT NO. EXCEEDED 
BGE NEWPAS s8R IF YES 


GPHARD UNITN,R1 sGET P-TABLE POINTER INTO Ri 


MOV RO,R1 
Bcs 30% 


BCOMPLETE 30% sBR IF DEVICE AVAILABLE 
BR GETPRM sSKIP THIS DEVICE 


peeeeeeeeses HARDWARE PARAMETER MOVING CODE eececececeereces 
MOV 


C(R1)+,CSRA sSTORE DHV1i-M CSR ADORESS IN DEV. ~w ADORESS TABLE 
MOV CR1)+,R2 sGET THE RX INTERRUPT VECTOR ADDRESS 
MOV R2 ,.RXVECA sSTORE RX INT VECTOR ADORESS. 
AOD #4 ,R2 sCALCULATE TX INTERRUPT VECTOR ADDRESS. 
MOV R2,TXVECA sSTORE TX INT VECTOR ADORESS. 
MOV (R1)+, ACTLNS sSTORE DHV11-M ACTIVE LINE BIT MAP 
MOV @MAPLNS ,R2 sGET THE BIT MAP FOR ALL LINES. 
COM R2 sGET A BIT MAP OF NON-EXISTANT LINES. 
BIC R2,ACTLNS sCLEAR NON-EXISTANT LINES FROM ACTLNS. 
MOVB (R1)+, LOPBCK sSTORE OHV11-M LOOPBACK MODE 


hOVB (R1)+, BRLEVL sSTORE OHV11-M INTERRUPT BUS REQUEST LEVEL 


CALCULTATE DEVICE REGISTER ADORESSES,AND PUT THEM IN THE 
DEVICE REGISTER ADORESS TABLE. 


mov CSRA RI sCOPY CSR ADDRESS 

INC RL sINCREMENT CSR ADORESS 

INC Ri s COPY BY 2. 

mov 07 .R3 sSET UP REGISTER COUNT 

MoV ORBUF A .R2 sGET LOCATION WHERE RBUF ADORESS GOES IN TABLE 
mov R1,(R2)> sSTORE REGISTER ADORESS IN TABLE 
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SEQ 0196 


7582 030652 005201 INC R1 sINCREMENT REGISTER ADDRESS 
7583 030654 005201 INC R1 s BY 2,FOR THE NEXT DEVICE REGISTER. 
7584 030656 005303 DEC R3 sDECREMENT REGISTER COUNT 
Hh 030660 001373 BNE 123 3LOOP IF NOT DONE 
7587 3° 
Lae 3: Initialise the BMP code queue. : f 
t- 
7590 030662 012700 002514 MOV @BMPCQB,RO sGET THE START. ADDRESS OF THE QUEUE. 
7591 030666 012701 002714 MOV @BMPCQE ,R1 sGET THE END ADDRESS OF THE QUEUE. 
7592 030672 010037 002512 MOV RO ,BMPCQP :SET THE POINTER TO THE START OF THE QUEUE. 
7593 030676 005020 14$: CLR CRO)+ s;CLEAR OUT THE CONTENTS OF THE QUEUE. 
7594 030700 020001 CMP RO,R1 s;CHECK IF END OF QUEUE HAS BEEN REACHED. 
oe 030702 103775 BLO 143 ;LOOP IF NOT ALL DONE. 
3° 
7597 ; Report the Unit number if the software P-table question was answered YES, 
La 3 and the maximum unit number is greeter then 1. 
ge 
7600 030704 032737 000020 002164 BIT @B1T4, OPTION sCHECK IF THE QUESTION WAS ANSWERED YES. 
7601 030712 001416 BEQ 16$ ;SKIP REPORTING UNIT NUMBER IF IT IS DISABLED. 


7602 030714 023727 002012 000001 CMP LSUNIT,@1 ;CHECK MAXIMUM NUMBER OF UNITS SELECTED. 

7603 030722 003412 BLE 16% 300 NOT REPORT UNIT NUMBER IF MAX NUMBER < 1. 

7604 020724 PRINTF @MFUNIT,UNITN s;REPORT UNIT NUMBER. 
030724 013746 002200 MOV UNITN, -( SP) 
030730 012746 005430 MOV OMFUNIT, -( SP) 
030734 012746 000002 MOV #2,-(SP) 
030740 010600 MOV SP ,RO 
030742 104417 TRAP CSPNTF 
030744 062706 000006 ADD 06 ,SP 

7605 030750 16$: 

7606 

7607 030750 ENDIT: 

7608 3? 

wee ; Set the processor priority to disable all but LTC interrupts. 

610 3° 

pee 030750 106427 000240 MTPS @PRIOS ;SET PROCESSOR PRIORITY TO 5S. 

612 3° 

7613 F Enable Line Time Clock if one is available. 

7614 37 

7615 030754 005737 002300 TST CLKHRZ ;CHECK FOR A LTC BEING PRESENT. 

7616 030760 001403 BEQ 18$ 3LTC PRESENT? NO, SKIP LTC ENABLE. 

7617 030762 012777 000100 151302 MOV *BIT6,8CLKCSR ;YES, ENABLE THE LTC. 

7618 030770 18$: 

7619 

7620 030770 ENDINIT 
030770 L10020: 

. 030770 104411 TRAP CSINIT 

621 

7622 000000 TNUM == 0 sINITIALIZE THE ASSEMBLER TEST NUMBER VARIABLE. 





—— 
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INITIALIZE SECTION 


7643 030772 
030772 


7651 
7652 030772 
020772 
030772 104461 


r-— 








3 edataatadatadaiababadetataialaatetalsinlnlabaiaisinlataiaiaieianininistaisininiaiainiaiaaaeaaccsccccccccc CT COE 
a 


i 
Fy ad adataiahaiadaiedatedatatatabaialaiabataiainiaialsininininigininineiainisisininainaiinnaaiccccncncccccc PP 


-SBTTL AUTODROP SECTION 





se 
+ THIS CODE IS EXECUTED IMMEDIATELY AFTER THE INITIALIZE CODE IF 


; THE “ADR” FLAG WAS SET. 
3; SEE IF THEY WILL RESPOND. 
; DROPPED FROM TESTING. 


BGNAUTO 


ENDAUTO 





THE UNIT(S) UNDER TEST ARE CHECKED TO 
THOSE THAT DON’T ARE IMMEDIATELY 
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AUTODROP SECTION 


7670 030774 
030774 


7681 030774 
7682 031000 
7683 021002 

031002 
7684 031004 
7685 031004 
7686 031010 
7687 031012 
7688 031016 
7689 031016 

031016 

031020 


7705 031022 
031022 
031022 


005737 
001401 


104433 
005737 


001402 
005077 


104432 
000002 


104412 


002222 


002300 
151254 





jMAGSCAS SAAS S SSS SS SSSA SSAA SASS KA AA SSSA SS SSSA SAAS SSS a Se ae eh eS 


; 
; VOHC .CuC 


; 
{MRS AASGAA SSAA SAAS SATA SSA SAL GSA SG GA KS SSS AGAAKSAAHK SSSA AKASHS MKS CASAS Se Se 


-SBTTL CLEANUP CODING SECTION 


+ 






; THE CLEANUP CODING SECTION CONTAINS THE CODING THAT IS PERFORMED 
; AFTER THE HARDWARE TESTS HAVE BEEN PERFORMED. 


BGNCLN 


TST CTRLCF 
BEQ es 
BRESET 
2$: 

TST CLKHRZ 
BEQ 3$ 

CLR @CLKCSR 
EXIT CLN 


3$: 


-EVEN 
ENDOCLN 


L$CLEAN: : 


sDID WE GET HERE BY CTRL-C FROM TEST? 

sCTRL-C FROM TEST? NO, SKIP BUS RESET. 

sYES, CLR ANY DMAS OR OUTSTANDING INTERRUPTS. 
TRAP C$RESET 


sIS CLOCK ENABLED 
;IF NO BRANCH 
sTURN OFF CLOCK 


TRAP CSEXxIT 
-WORD L10022-. 


L10022: 


TRAP C$CLEAN 
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CLEANUP 


7707 
7708 
7709 
7710 
7711 
7712 
7713 
7714 
7715 
7716 
7717 
7718 
7719 
7720 
7721 
7722 
7723 


7724 
7725 
7726 
7727 
7728 
7729 
7730 
7731 


7732 
7733 
7734 
7735 
7736 
7737 
7738 
7739 


7740 
7741 
7742 


031024 
031024 


031024 
031024 
031026 
031032 
031036 
031040 
031042 
031046 


031050 
031126 
031126 


031126 
031130 


031132 
031132 
031132 





010046 
012746 
012746 
010600 
104417 
062706 
000427 


045 


000167 
000000 


104453 


031050 
000002 


000006 


101 


040 








hadatataialaladatateialaialaiaisinlniatataininininiginlsininainiaiaininiainiaiaininmaaeenmnccccncmneiccr CE EET 


3 VOHC .ORP 


a 
th halahalahatatalalalalaiatiialainiainlatlsinitisinininiinniniiniiiuiieit it ttt tt ttt tT TT TL TT PT PERE EE En 


-SBTTL DROP UNIT SECTION 


se? 

s THE DROP-UNIT SECTION CONTAINS THE CODING THAT CAUSES A DEVICE 
; TO NO LONGER BE TESTED. 

g°e 


BGNOU 
L$OU:: 
Th atadalahatalatalaiahatadalabaiahatalaiahaainialainiaiainiaiaieiaisaimmainamaeainuececiti ET 
3 INSERT DROP CODE HERE. THIS CODE WILL BE EXECUTED AFTER 
3 A “DROP” COMMAND OR A “DODU” MACRO EXECUTION. THE PURPOSE 
3 OF THIS CODE IS TO DO ANY NECESSARY HOUSEKEEPING AFTER A 
; UNIT HAS BEEN DROPPED. THIS SECTION IS OPTIONAL. 
Th hal ahalalalatalabalalalalatalaiabatabainiaiaininigininisisiginatsinaininicaiiomurnen ETN 
PRINTF @DROP,RO sREPORT UNIT THAT HAS BEEN DROPPED. 
MOV RO,-(SP) 
MOV #DROP, -( SP) 
MOV #2,-CSP) 
MOV SP ,RO 
TRAP CSPNTF 
ADD 06,SP 
BR EDROP sBRANCH AROUND THE MESSAGE. 
-NLIST BEX 
DROP : ee UNITSD68A DROPPED FROM FURTHER TESTING.#N/ 
VE 
EDROP: 
EXIT DU 
-WORD J$JMP 
-WORD L10023-2-. 
ENDDU 





SEQ 0199 
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SEQ 0200 
DROP UNIT SECTION 
7744 
7745 jSSSKCAS SSCS SK SS KS SSK AAS ASS AAAS SASS KSA SS SSSA ASAS SSSA SS SSAA SAS SS SASS 
7746 3 
halt ; VDHC . ADD 
48 ; 
7749 ; SSSCKCC GSAS SSSA SASS AA AKASAKA SSS KK KASS KK KS AKA SSSA SSAA SSKS SSSA SSS oS | 
7750 
7751 
7752 
7753 -SBTTL ADD UNIT SECTION 
7754 
7755 +e 
7756 ; THE ADD-UNIT SECTION CONTAINS ANY CODE THE PROGRAMMER WISHES 
7757 ; TO BE EXECUTED IN CONJUNCTION WITH THE ADDING OF A UNIT BACK 
7758 ; TO THE TEST CYCLE. 
7759 s-- 
7760 
7761 031134 BGNAU 
ree 031134 L$AU:: 
7763 5 Sw ah ah hp ah sh pu uh uu ul uk uh lu 6 hu uk hh SS ow SS I ST 
7764 3 INSERT ADD CODE HERE. THIS CODE WILL BE EXECUTED AFTER 
7765 3 AN “ADD” COMMAND. THE PURPOSE OF THIS CODE IS TO DO ANY 
7766 ; HOUSEKEEPING THAT MAY BE NECESSARY AFTER A UNIT HAS BEEN ADDED. 
7767 THIS SECTION IS OPTIONAL. 
7768 ; MASSA LA SALS AAA SALSA AL SALSA KAS SELLA SLA SK A Ns 
7769 
7770 031134 EXIT AU 
031134 000167 -WORD J$JMP 
031136 000000 . -WORD L10024-2-. 
7771 
7772 
7773 -EVEN 
7774 
7775 031140 ENDAU 
031140 L10024: 
031140 104452 TRAP C$AU 
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SEQ 0201 
HARDWARE TEST - ADRA - 
Ah -SBTTL HARDWARE TEST - ADRA - 
9 3+ 
7780 FRSASSSKASSAKASESKAEASSEASAAKEASSAKAKASA SEEKS AE AAARELR ERAS OOONEDREEEEEEEEEREEESE 
7781 3% - REGISTER ADDRESS TEST - 
7782 3% 
7783 3% This test verifies that the Q-bus can read and write to the DHV11-M 
7784 34 device registers. If the DHV11-M does not respond to the access 
7785 3% attempts (If the DHV11-M is at the wrong address, for example) the 
7786 ;* 004 bus time-out trap is detected by this routine and an error 
7787 34 is reported. 
7788 34 
7789 $22 O44R SOOKE EEEEEA SEEAESEREKEKEKEAEEESEEESALEEEEEEEEEEEEEAREEERERERELERERE 
7790 — 
7791 
7792 031142 BGNTST 
031142 T1:: 
7793 000001 TNUM == TNUM + 1 sINCREMENT THE ASSEMBLY TIME TEST COUNTER. 
7794 031142 012737 000001 002224 MOV #TNUM, TSTNUM ;SET UP THE TEST NUMBER. (1) 
7795 031150 012737 177777 002222 MOV #-1,CTRLCF sINDICATE THAT WE ARE IN A TEST. 
7796 3+ 
had ; Set up to catch any 004 traps which occur: 
8 i- 
7799 021156 013737 000004 002254 MOV 804, TP4VEC. sSAVE THE EXISTING 004 TRAP VECTOR. 
7800 031164 012737 027552 000004 MOV @TP4RTN, 804 ;SET 004 TRAP VECTOR TO OUR SERVICE RTN ADR. 
nas 031172 005005 CLR RS ;CLEAR THE ERROR FLAGS. 
2 
7803 3+ 
fen ; Set up for the initial iteration of the test loop: 
5s 
ee 031174 005004 CLR Ra ;CLEAR THE LINE COUNTER. 
7808 3+ 
7809 ; Here begins the loop to test the registers for a line. 
ear 3 First test the CSR and set the IND.ADR.REG (I.A.R) field. 
1 ‘= 
7812 031176 005037 002256 2s: CLR TP4FLG ;CLEAR THE 004 TRAP FLAG. 
7813 031202 013700 002202 MOV CSRA,RO 3SET UP CSR AS THE CKTRAP MOVE SOURCE. 
7814 031206 012701 031422 MOV #523 ,R1 s;SET UP DESTINATION LOCATION FOR CKTRAP MOVE. 
7815 031212 004737 017154 JSR PC ,CKTRAP sMOVE AND CHECK FOR TRAP. 
7816 031216 103402 BcS 4s ;IF NO TRAP, BYPASS ERROR. 
7817 031220 052705 100001 BIS #100001,R5 ;SET FATAL READ ERROR FLAGS. 
7818 031224 042737 000017 031422 4%: BIC #17,52$ ;CLEAR THE I.A.R FIELD OF THE CSR DATA. 
7819 031232 050437 031422 BIS R4,52$ ;OR IN THE LINE COUNTER TO THE I.A.R FIELD. 
7820 031236 010100 MOV R1,RO ;USE OLD DESTINATION FOR SOURCE OF CKTRAP MOVE. 
7821 031240 013701 002202 MOV CSRA,R1 ;SET UP CSR AS THE CKTRAP MOVE DESTINATION. 
7822 031244 004737 017154 JSR PC ,CKTRAP sMOVE AND CHECK FOR TRAP. 
7823 031250 103403 BCS 6$ ;IF NO TRAP, BYPASS ERROR. 
7824 031252 052705 100002 BIS #100002,R5 ;SET FATAL WRITE ERROR FLAGS. 
ee 031256 000440 BR 40$ sEXIT AND REPORT FATAL ERROR. 
6 3+ 
awd 3 Now, we test each register for this Line. 
8 $- 
7829 031260 012702 000010 6$: MOV #10,R2 ;INIT REGISTER COUNTER TO 8. 
7830 031264 013737 002202 031420 MOV CSRA,50$ sINITIALIZE THE REGISTER POINTER. 
7831 031272 012700 031420 8$: MOV #50$ ,RO ;SET UP REGISTER AS THE SOURCE FOR CKTRAP MOVE. 
7832 031276 012701 031422 MOV #52$,R1 ;SET UP LOCAL STORAGE AS THE DES FOR CKTRAP. 
7833 031302 004737 017154 JSR PC ,CKTRAP sPERFGRM THE MOVE, CHECK FOR TRAP. 





r-— 
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SEQ 0202 
HARDWARE TEST - ADRA - 
7834 031306 103402 BCS 10$ sIF NO TRAP, BYPASS THE SETTING OF ERROR FLAGS. 
7835 031310 052705 100001 BIS #100001,R5 ;SET FATAL READ ERROR FLAGS. 
7836 631314 010100 10$: MOV R1,RO sUSE OLD DEST AS SRC FOR CKTRAP MOVE. 
7837 031316 012701 031420 MOV #50$,R1 ;SET UP REGISTER AS THE DEST FOR CKTRAP MOVE. 
7838 031322 004737 017154 JSR PC ,CKTRAP s;PERFORM THE MOVE, CHECK FOR TRAP. 
7839 031326 103402 BcS 12$ ;IF NO TRAP, BYPASS THE SETTING OF ERROR FLAGS. 
7840 031330 052705 100002 BIS ~° #100002,R5 ;SET FATAL WRITE ERROR FLAGS. 
7841 031334 005237 031420 12$: INC 50$ sINCREMENT THE REGISTER 
7842 031340 005237 031420 INC 50$ ; POINTER BY 2. 
7843 031344 005302 DEC R2 ;COUNT THE REGISTER. 
coos 031346 001351 BNE 8$ ;LOOP TO TEST THE NEXT REGISTER ADDRESS. 
7846 i¢ 
aa ; Now we set up to test the next line, or to exit if we are done. 
84 haa 
7849 031350 005204 INC R4 sINCREMENT THE LINE COUNTER. 
7850 031352 020427 000010 CMP R4, @NUMLNS s;COMPARE LINE COUNTER AGAINST NUMBER OF LINES. 
reas 031356 002707 BLT 2$ ;LOOP TO TEST THE NEXT LINE IF WE'RE NOT DONE. 
7853 3+ 
7854 3; Done checking device register addresses. 
coor $ Report any errors and exit. 
8 he 
7857 031360 013737 002254 000004 40$: MOV TP4VEC ,804 sRESTORE THE NORMAL 004 TRAP VECTOR. 
7858 031366 005705 TST RS sCHECK THE ERROR FLAGS. 
wed 031370 100015 BPL 60$ sEXIT ROUTINE IF NO ERRORS. 
860 
7861 ; REPORT “DEVICE REGISTER ACCESS ERRORS” 
7862 031372 ERRDF 101,€M0103,ERO0101; >>>>> ERROR @101 <<ccc, 
031372 104455 TRAP CSEROF 
031374 000145 -WORD 101 
031376 010072 «WORD €E&MO103 
coxs 031400 013562 -WORD ERO101 
7864 031402 DODU UNITN ;DROP THIS UNIT FROM FUTHER TESTING. 
031402 013700 002200 MOV UNITN,RO 
031406 104451 TRAP C$D0D0U 
7865 031410 005037 002222 CLR CTRLCF sINDICATE NO CTRL-C ABORT FROM TEST. 
7866 031414 DOCLN sABORT THIS SUB PASS. 
031414 104444 TRAP C$DCLN 
7867 031416 000402 BR 60$ 3 
7868 3* , 
nna ; Local storage. 
j= 
7871 031420 000000 50$: -WORD O sSTORAGE FOR THE SOURCE OR DEST OF THE CKTRAP MOVE. 
7872 031422 000000 52$: -WORD O sSTORAGE FOR THE SOURCE OR DEST OF THE CKTRAP MOVE. 
7873 031424 005037 002222 60$: CLR CTRLCF sINDICATE THAT WE ARE NOT WITHIN A TEST. 
7874 031430 ENDTST 
031430 L10025: 


031430 104401 TRAP CSETST 








—— 
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HARDWARE TEST 


7917 
7918 
7919 
7920 
7921 
7922 
7923 
7924 
7925 


—— 


031432 
031432 


031432 
031440 
031442 


031450 
031456 
031464 
031472 
031500 


031504 
031510 


031512 
031516 
031516 
031522 
031526 
031532 
031536 
031540 
031544 


031550 
031554 
031560 


123727 
001154 


004737 
103130 


106427 


012746 
012746 
013746 
012746 
104437 
062706 
106427 


005037 
005037 
005037 


- FRMERR - 


002176 
177777 


000002 
000001 
014071 
011142 
002502 


017234 


000240 


000240 
027574 
002172 
000003 


000010 
000000 


002504 
002506 
002252 


000002 
002222 


002224 
005316 
005320 
005322 









SEQ 0203 


-SBTTL HARDWARE TEST - FRMERR - 
PEAS TOTO T Irie t iti titi i itt t i iit titi TT TT TTT TTT TTT TTT TTT TTT TTT TTT" 
+) - FRAMING ERROR GENERATION TEST - 
3% 
;* This test is used to verify the framing error detection capabilities 
a8 of the DHV11-M. 
7% When in st red loopback mode, characters are transmitted from 
7% one group of lines at 8 bits/char,and received by the other group 
3% at 5 bits/cher.This will generate a framing error for each character. 
3* This test will only execute if the staggered loopback mode is selected. 
3% The special staggered loopback BERG connector must be fitted. 
3% The active lines bit mask is used to indicate which lines have been 
i* removed from further testing. 
3* 
§ ~~ SRERREEEEEEEKEEAEEEEEEAEEESEAEEEKEEESD ES ESOS OSES OEEEOEODEEKOEEEEEEEEEEEEERERERE 
BGNTST 
Te:: 
3¢ 
; Execute this test in staggared loopback mode only. 
g= 
CMPB = =LOPBCK,#2 ;CHECK MODE SELECTED. 
BNE 60$ sEXIT IF STAGGERD LOOPBACK MODE NOT SELECTED. 
MOV #-1,CTRLCF sINDICATE THAT WE ARE IN A TEST. 
TNUM == TNUM + 1 sINCREMENT THE ASSEMBLY TIME TEST COUNTER. 
MOV @TNUM, TSTNUM ;SET UP THE TEST NUMBER. (62) 
MOV #1,ERRTYP ;SET ERROR TYPE IN ERROR TABLE. 


MOV $6201.,ERRNBR ;SET THE FIRST ERROR NUMBER IN ERROR TABLE. 
MOV @EM6201,ERRMSG ;SET ERROR MESSAGE ADDRESS IN ERROR TABLE. 
CLR ERSMRF sINITIALIZE THE “REPORT ERROR SUMMARY” FLAGS. 


3¢ 

; Reset the DUT to a known state, remove status codes from the fifo. 
; Clear TX and RX interrupt enable bits. 

; This subroutine reports error >>>>> 6201 <<<<<, 


_ 
JSR PC,CLNRST s;RESET THE DUT. 
BCC 60$ ;ABORT THE TEST IF FATAL ERROR FOUND IN RESET. 
3¢ 
; Disable all interrupts. 
; Set up DMA TX and RX interrupt service routines. 
— 


MTPS @PRIOS ;DISABLE DEVICE INTERRUPTS. 
SETVEC TXVECA,@TXDMA, OPRIOS sSELECT DMA TX INT SERVICE RTN. 
MOV @PRIOS, -(SP) 


MOV @TXDMA , -(SP) 
MOV TXVECA, -(SP) 
MOV @3,-(SP) 
TRAP C8SVEC 

ADD #10,SP 


MTPS #PRIOO ;ALLOW INTERRUPTS. 
3* 
; Clear TX, RX, and OMA_Start error flags. 
| oad 
CLR TXDONF sCLEAR TX DONE FLAGS FOR ALL LINES. 
CLR RXDONF sCLEAR RX DONE FLAGS FOR ALL LINES. 
CLR TXINTF ;CLEAR TX ERROR FLAGS FOR ALL LINES. 


3* 
; Set up Error table and data pattern table. 
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HARDWARE TEST 


a 


7926 
7927 
7928 
7929 
7930 


031564 
031570 
031574 


031600 
031604 
031610 
031614 
031620 
031624 
031630 


031634 
031640 
031644 
031646 
031654 
031660 


031664 


031670 
031672 
031676 


031702 
031706 
031710 
031716 
031722 


031726 
031732 


012700 
004737 
005037 


012700 
012701 
004737 
012702 
012703 
013704 
004737 


005237 
004737 
103052 
012737 
004737 
012705 


004737 


005104 
004737 
005237 


004737 
103031 
012737 
004737 
012705 


004737 
005237 


- FRMERR - 


003304 
017256 
003604 


156470 
156440 
021014 
003604 
000001 
002230 
020036 


005320 
023234 


014075 


025742 
100000 


016676 


020036 
005320 


023234 


014101 
025742 
100000 


016676 
005320 


005320 


005320 


; The numerical value of the character indicates the number of the line 
; that transmitted it. 


= 
MOV 
JSR 
CLR 


#ERCNTB,RO 
PC ,CLRi6W 
BUFBAS 


sPASS THE ADDRESS OF THE TABLE TO BE CLEARED. 
;CLEAR THE RX ERROR COUNTERS TABLE. 
sSET SINGLE CHAR DATA TO BE A NULL. 


7° 

; Initialise DMA parameters in the control block. 

; Transmission on line group 1 at 8 bits/char,1 stop bits,odd parity. 
; Reception on line group 2 at 5 bits/char,1 stop,odd parity. 


#156470,R0 
#156440,R1 
PC, ,GETTIM 
@BUFBAS,R2 
#1,R3 

LGRP1M,R4 
PC ,FRPSUP 


sPASS LPR PARAMETER FOR 8 BITS/CHAR. 
sPASS LPR PARAMETER FOR 5 BITS/CHAR. 


sGET TIME-OUT BASED ON MINIMUM BAUDRATE IN USE. 


sPASS START ADDRESS OF DATA PATTERN. 

sPASS LENGTH OF DATA PATTERN. 

sPASS LINE GROUP OF LINES THAT ARE TO TX. 
sSET UP DUT FOR TRANSMISSION AND RECEPTION. 


3¢ 

; Purge the FIFO of any un-wanted characters. This routine reports errors 
; with with error numbers from >>>>> 6202 thru 6204 <<<<<, 

; Perform transmission and reception at 9600 baud. 


; Report any errors found, ie. 


3* 
; This subroutine reports error 


.< 
JSR 


3° 


ERRNBR 
PC ,PUFIFR 
60$ 


#6205. ,ERRNBR 


PC, TXFRPR 
#100000,R5 


PC ,CKFRPR 


Framing error bit clear or Parity error set. 


sSET THE ERROR REPORT NUMBER TO 6202. 
sCLEAN OUT THE FIFO. 

sABORT THIS TEST IF FIFO WOULD NOT PURGE. 
sSET THE ERROR NUMBER TO 6205. 

;TX DATA PATTERN ON SELECTED ACTIVE LINES. 
sPASS FRAMING ERROR TEST FLAG. 


number >>>>> 6205 <<<<<, 


sREAD CHARACTERS, REPORT ANY ERRORS FOUND. 


; Reverse transmission/reception roles on all active lines, and repeat test. 


sREVERSE ROLES FOR TRANSMISSION AND RECEPTION. 
sSET UP DUT FOR TRANSMISSION AND RECEPTION. 
sSET ERROR NUMBER TO 6206. 


3¢ 
3; This routne reports errors with numbers >>>>> 6206 thru 6208 <<<<<, 


sCLEAN OUT THE FIFO. 

sABORT THIS TEST IF FIFO WOULD NOT PURGE. 
sSET ERROR NUMBER TO 6209. 

+TX DATA PATTERN ON SELECTED ACTIVE LINES. 
sPASS FRAMING ERROR TEST FLAG. 


i* 
; This subroutine reports errors >>>>> 6209 <<<<<, 


COM R4 
JSR PC ,.FRPSUP 
INC ERRNBR 
g= 
JSR PC ,PUFIFR 
BCC 60$ 
MOV #6209. ,ERRNBR 
JSR PC, TXFRPR 
MOV #100000, R5 
— 
JSR PC ,CKFRPR 
INC ERRNBR 


3 
3 Disable interrupts. 
3 Clear the interrupt vectors. 





sREAD CHARACTERS, REPORT ANY ERRORS FOUND. 
;SET ERROR NUMBER TO 6210. 
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HARDWARE TEST 


7986 031736 
7987 031742 


7989 031746 
7990 031752 
031752 
031756 
7991 031760 


7995 031766 
7996 031772 
7997 031776 


7999 032002 
032002 
032002 


25S 





004737 
004737 


106427 
013700 


104436 
012737 


004737 
106427 
005037 


104401 


- FRMERR - 


026036 
026450 


000240 
002172 
014105 


024220 
000240 
002222 


005320 






Update the active lines bit map to reflect Jines removed from testing. 
This subroutine reports errors >>>>> 6210 *hru 6212 <<<<<. 


JSR 
JSR 


MTPS 
CLRVEC 


MOV 


PC, TXIEO 
PC, TXRREP 


@PRIOS 
TXVECA 


#6213. ,ERRNBR 


sDISABLE ALL TX INTERRUPTS. 
sREPORT FINAL ERRORS FROM TX/RX. 


sDISABLE DEVICE INTERRUPTS. 


sRETURN TX INT VECTOR TO UNUSED POOL. 


sSET ERROR NUMBER TO 6213. 


3¢ 
; This subroutine reports errors »>>>>> 6213 <<<<<, 


60$: 


JSR 
MTPS 
CLR 


ENDTST 


PC ,REPSMR 
@PRIOS 
CTRLCF 





sREPORT ERROR SUMMARIES IF CALLED FOR. 


sDISABLE DEVICE INTERRUPTS. 


sINDICATE THAT WE ARE NOT WITHIN A TEST. 


L10026: 





MOV 
TRAP 


TRAP 


TXVECA ,RO 
Cscvec 


CSETST 
























































032004 
032004 


032004 
032012 
032014 


032022 
032030 
032036 
032044 
032052 


032056 
032062 


032064 
032070 
032070 
032074 
032100 
032104 
032110 
032112 
032116 


032122 
032126 
032132 


123727 
001161 


004737 
103135 


106427 


012746 
012746 
013746 
012746 
104437 
062706 
106427 


005037 
005037 
005037 


- PARERR - 


002176 
177777 


000003 
000001 
014235 
011175 
002502 


017234 


000002 
002222 


002224 
005316 
005320 
005322 


CVDHCDO DHV11-M FUNC TST PART 3 MACRO VOS.00 Thursday 25-Apr-85 16:37 Page 143 
HARDWARE TEST 


-SBTTL HARDWARE TEST 
{+ POR ORESEERE EE ES EOE EEEE OS 044000000606 06000000000000000000080000808002 0000000 
- PARITY ERROR GENERATION TEST - 


This test is used to verify the parity error detection and report 


capabilities of the DUT 


SEQ 0206 


- PARERR - 


When staggered loopbeck mode is selected, data is transmitted 

on all active lines in line group 1 with odd parity selected, 

and received on lines in group 2 with even parity selected. 

This will generate a parity error for each character received. 

The parity selection is then reversed on the lines in each group 

and the test is repeated. 

This test will only execute if the staggered loopback mode is selected. 
The special staggered loopback BERG connector must be fitted. 


5 (88066464666 6606 0600000460800 6668660646066 004646000006 0600600000 6460046000006 00 6808 RE ERE 


BGNTST 


T3:: 


7¢ 
; Execute this test in staggered loopback mode only. 


CMHPB 8 §=66LOPBCK , #2 
BNE 60$ 

MOV @-1,CTRLCF 
TNUM == TNUM «+ 1 

MOV @TNUM, TSTNUM 
MOV #1 ,ERRTYP 

MOV #6301. ,ERRNBR 
MOV #€M6301, ERRMSG 
CLR ERSMRF 


sCHECK MODE SELECTED. 

sEXIT IF STAGGERD LOOPBACK MODE NOT SELECTED. 
sINDICATE THAT WE ARE IN A TEST. 

sINCREMENT THE ASSEMBLY TIME TEST COUNTER. 
sSET UP THE TEST NUMBER. (63) 

sSET ERROR TYPE IN ERROR TABLE. 

sSET THE FIRST ERROR NUMBER IN ERROR TABLE. 
sSET ERROR MESSAGE ADDRESS IN ERROR TABLE. 
sINITIALIZE THE “REPORT ERROR SUMMARY” FLAGS. 


3? 

; Reset the DUT to a known state, remove status codes from the fifo. 
Clear TX snd RX interrupt eneble bits. 

; This subroutine reports error >>>>> 6301 <<<<<, 


3* 
; Disable ell interrupts. 


JSR 
Bcc 


PC ,CLNRST 
60$ 


sRESET THE DUT. 
sABORT THE TEST IF FATAL ERROR FOUND IN RESET. 


; Set up DMA TX and RX interrupt service routines. 


MTPS 


SETVEC TXVECA,@TXDMA, @PRIOS 


MTPS 


@PRIOS 


@PRIOO 


3¢ 
; Clear TX/RX flags. 


CLR 
CLR 
CLR 


TXDONF 
RXDONF 
TXINTF 


sDISABLE DEVICE INTERRUPTS. 
sSELECT DMA TX INT —— 


MO @PRIOS, -(SP) 
MOV @TXDMA , - (SP) 
MOV TXVECA, -(SP) 
MOV @3,-(SP) 
TRAP Cs#SvEC 

AO” #10,SP 


sALLOW INTERRUPTS. 


sCLEAR TX DONE FLAGS FOR ALL LINES. 
sCLEAR RX DONE FLAGS FOR ALL LINES. 
sCLEAR TX ERROR FLAGS FOR ALL LINES. 
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SEQ 0207 
HARDWARE TEST - PARERR - 










; Set up Error counter teble. 









8052 3° 
8053 032136 012700 003304 MOV #ERCNTB,RO sPASS THE ADDRESS OF THE TABLE TO BE CLEARED. 
eons 032142 004737 017256 JSR PC .CLRi6W sCLEAR THE RX ERROR COUNTERS TABLE. 
8056 3° 
on ; Initialise DMA peremeters in the control block. 
ge 
8059 032146 012700 156470 MOV #156470,RO sPASS LPR PARAMETER WITH ODD PARITY. 
8060 032152 012701 156570 MOV #156570,R1 sPASS LPR PARAMETER WITH EVEN PARITY. 
8061 032156 004737 021014 JSR PC ,GETTIM sGET TIME-OUT BASED ON MINIMUM BAUDRATE IN USE. 
8062 032162 012702 005156 MOV @SOP 28 ,R2 sPASS START ADDRESS OF DATA PATTERN. 
8063 032166 012703 000020 MOV #16. ,R3 sPASS LENGTH OF DATA PATTERN. 
8064 032172 013704 002230 MOV LGRP1M,R4 sPASS BIT MAP OF LINES TO BE SET WITH ODD PAR. 
8065 032176 004737 020036. JSR PC .FRPSUP 3SET UP DUT FOR TRANSMISSION AND RECEPTION. 


















8067 3° 
8068 ; Pu the FIFO of eny un-wented cherecters. 
8069 ; Perform transmission end reception of the 16 byte dete pettern at 9600 baud. 
8070 + Transmission on line in group 1, 8 bits/cher, 1 stop bits, odd parity. 
8071 s Reception on lines in group 2 et 8 bits/cher, 1 stop, even perity. 
8072 s Remove characters from the FIFO and look for the parity error bit being set. 
aore ; Report any errors found, ie. Framming error bit set or Perity error cleer. 
oad 
8075 3° 
pode ; This routine reports errors with numbers >>>>> 6302 thru 6304 <<<<<, 
-— 
8078 032202 004737 023234 JSR PC ,PUFIFR sCLEAN OUT THE FIFO. 
8079 032206 103063 Bcc 60% sABORT THIS TEST IF FIFO WOULD NOT PURGE. 
8080 032210 012737 014241 005320 MOV #6305..,ERRNBR ;SET ERROR NUMBER TO 6305 
8081 032216 004737 021204 JSR PC ,INIDMA 3TX DATA PATTERN ON ALL ACTIVE LINES. 
peek 032222 005005 CLR RS sPASS PARITY ERROR TEST FLAG. 
3¢ 
rooe ; This subroutine reports error number »>>>>> 6305 <<<<<, 
08 8- 
8086 032224 004737 016676 JSR PC ,CKFRPR sREAD CHARACTERS, REPORT “NY ERRORS FOUND. 
ood 032230 005237 005320 INC ERRNBR sSET ERROR NUMBER TO 6306. 
7° 
eed : This subroutine reports errors with numbers >>>>> 6306 thru 6309 <<<<< 
t- 
8091 032234 004737 026450 JSR PC, TXRREP sREPORT FINAL ERRORS FROM TX/RX. 
8092 032240 012737 014246 005320 MOV #6310..,ERRNBR ;SET ERROR NUMBER TO 6310. 
8093 032246 005037 002504 CLR TXDONF ;CLEAR TX DONE FLAGS FOR ALL LINES. 
8094 032252 005037 002506 CLR RXDONF s;CLEAR RX DONE FLAGS FOR ALL LINES. 
rose 032256 005037 002252 CLR TXINTF sCLEAR TX OMA HANDOVER ERROR FLAGS. 
3¢ 









soee ; Reverse trensmission/reception roles on all active lines, end repeat test. 
j- 
8099 032262 005104 COM RA sREVERSE ROLES FOR TRANSMISSION AND RECEPTION. 
Zoe 032264 004737 020036 JSR PC ,FRPSUP sSET UP DUT FOR TRANSMISSION AND RECEPTION. 
3¢ 
ere 3; This routine reports errors with numbers »>>>>> 6310 thru 6311 <<<<<, 
g° 
8104 032270 004737 023234 JSR PC ,PUFIFR :CLEAN OUT THE FIFO. 
8105 032274 103030 Bcc 60$ sABORT THIS TEST IF FIFO WOULD NOT PURGE. 
8106 032276 012737 014250 005320 MOV #6312..,ERRNBR ;SET ERROR NUMBER TO 6312. 
8107 032304 004737 021204 JSR PC, INIDMA * 3TX DATA PATTERN ON SELECTED ACTIVE LINES. 
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SEQ 0208 
HARDWARE TEST - PARERR - 
8108 3° 
yt s This subroutine reports errors with numbers >>>>> 6312 thru 6316 <<ccc, 
il 8° 
8111 032310 004737 016676 JSR PC ,CKFRPR sREAD CHARACTERS, REPORT ANY ERRORS FOUND. 
+144 032314 012737 014255 005320 MOV #6317. ,ERRNBR sSET ERROR NUMBER TO 6317. 
7° 
8114 3 Diseble interrupts. 
8115 : Clear the interrupt vectors. 
Sete F Update the active lines bit map to reflect lines removed from testing. 
g¢ 
tr 032322 004737 026036 JSR PC, TXIEO sDISABLE ALL TX INTERRUPTS. 
3° 
soe ; This subroutine reports errors >>>>> 6317 thru 6320 <<<<<. 
121 3- 
14 032326 004737 026450 JSR PC, TXRREP sREPORT FINAL ERRORS FROM TX/RX. 
8124 032332 106427 000240 MTPS @PRIOS sDISABLE DEVICE INTERRUPTS. 
8125 032336 CLRVEC TXVECA sRETURN TX INT VECTOR TO UNUSED POOL. 
032336 013700 002172 MOV TXVECA,RO 
032342 104436 TRAP CsCVEC 
8126 
8127 3° 
8128 ; This subroutine reports errors with numbers >>>>> 6321 <<<<<, 
8129 s- 
8130 032344 012737 014261 005320 MOV #6321. ,ERRNBR sSET ERROR NUMBER TO 6321. 
ap 032352 004737 024220 JSR PC ,REPSMR sREPORT ERROR SUMMARIES IF CALLED FOR. 
1 
8133 032356 106427 000240 60$: MTPS @PRIOS sDISABLE DEVICE INTERRUPTS. 
8134 032362 005037 002222 CLR CTRLCF sINDICATE THAT WE ARE NOT WITHIN A TEST. 
8135 032356 ENOTST 
032366 L10027: 
032366 104401 TRAP CSETST 





—— 
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SEQ 0209 
HARDWARE TEST - DMAADR - 
8137 -SBTTL HARDWARE TEST - DMAADR - 
8138 BO SOOOEOOEOEEE OEE 4006 0000666000060600000006000000000040000006060000000000808 
8139 34 - DMA ADDRESSING TEST - 
8140 34 THIS TEST VERIFIES , AS FAR AS POSSIBLE , THAT THE DUT CAN PERFORM A 
8141 38 DMA FROM A FULL 22 BIT OR 18 BIT ADDRESS. THE TEST RELIES ON FINDING A 
8142 3¢ COMPLEMENTARY PAIR OF ADDRESSES BETWEEN THE TOP OF PHYSICAL MEMORY AND 
8143 34 THE START OF THE TOP OF THE DIAGNOSTIC PROGRAM . 
8144 38 THIS MAY INVOLVE REMOVING PART OF THE DIAGNOSTIC RUNTIME SERVICES AND 
8145 34 THEN RESTORING. THE NUMBER OF BITS THAT HAVE BEEN SUCCESSFULLY TESTED 
seat 34 WILL BE PRINTED AT THE CONSOLE AT THE END OF THE TEST. 
34 
8148 34 
8149 F-- S006 0060 000000 06000060006600000000000000006600606000000006000000006000006006 
8150 032370 BGNTST 
032370 T4:: 
8151 
8152 
8153 000004 TNUM == TNUM « 1 s INCREMENT THE ASSEMBLY TIME TEST COUNTER 
8154 032370 012737 000004 002224 MOV @TNUM, TSTNUM sSET UP THE TEST NUMBER 
8155 032376 012737 177777 002222 MOV @-1,CTRLCF sINDICATE THAT WE ARE IN A TEST 
8156 032404 012737 000001 005316 MOV #1 ,.ERRTYP sSET ERROR TYPE AS FATAL IN ERROR TABLE 
8157 032412 012737 010461 005320 MOV $4401. ,ERRNBR sSET ERROR NUMBER TO 4401 
8158 022420 012737 010217 005322 MOV @EM4401,ERRMSG ;SET ERROR MESSAGE ADDRESS IN TABLE 
aoae 032426 012737 014100 005324 MOV @EROSO3,ERRBLK ;SELECT THE CORRECT ERROR REPORTING ROUTINE 
1 
8161 3° 
8162 ; CLEAR THE SUCCESS FLAG TO INDICATE TEST FAILURE IN CASE IT DOES 
bies i 
1 
8165 032434 005037 034162 CLR sucss sINDICATE FAILURE , IN CASE THE DUT FAILS 
8166 
8167 3° 
8168 ; SET UP THE 004 TRAP VECTOR TO CATCH ANY EXPECTED TRAPS THAT OCCUR 
3170 2 
1 
8171 032440 013737 000004 002254 MOV 804, TP4VEC sSAVE EXISTING 004 TRAP VECTOR 
are 032446 012737 027552 000004 MOV STP4RTN, 864 sSET 004 TRAP VECTOR TO OUR SERVICE ROUTINE 
1 
8174 3¢ 
8175 ; RESET THE DUT TO A KNOWN STATE,REMOVE THE STATUS CODES FROM THE FIFO. 
7 ; CLEAR TX AND RX INTERRUPT ENABLE BITS IN THE CSR 
817 3° 
8178 
8179 032454 004737 017234 JSR PC,CLNRST sRESET THE DHV , REPORT ANY ERRORS 
8180 032460 103402 BCS +6 sSKIP EXIT OF TEST IF NO FATAL ERROR FOUND. 
8181 032462 000137 034124 JMP 60$ sEXIT THE TEST, FATAL ERROR WAS FOUND. 
8182 
8183 3° 
8184 ; DETERMINE WHETHER MEMORY MANAGEMENT IS PRESENT 
8185 3- 
8186 
8187 032466 005737 002322 TST MMPRES ;IF MEM MGT IS PRESENT THEN 
8188 032472 001007 BNE 1$ sAVOID SETTING THE DMA TEST ADDR FOR 
8189 3A 16 BIT MACHINE. 
8190 032474 012737 001252 002264 MOV #1252,DMTSTA 3SET UP THE FIRST DMA TEST ADDR FOR 
8191 3A 16 BIT MACHINE 
8192 032502 012737 000021 034152 MOV $17. ,BITSTD ;SET THE BITS TESTED TO 16 + 1 


—— 
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HAROWARE TEST 
8193 032510 000513 
8194 


—— 


032556 


032564 


032572 
032576 


012700 
012701 


010031 
062700 
022701 
001372 


012700 
012701 
010031 
022701 
001374 


012777 


012777 


012703 
012702 


000200 
002330 


000200 
002342 


077406 
002346 


002366 


000020 


100000 


000005 
005132 


SEQ 0210 


- DMAADR - 


147534 


147546 





BR 10$ sSINCE MEM MGT ISN'T PRESENT 
s THERE'S NO NEED TO DETERMINE WHETHER ITS 
sA 22 OR AN 18 BIT MACHINE, SO BRANCH. 


3° 
; DETERMINE WHETHER THE HOST IS AN 18 OR A 22 BIT MACHINE. THIS IS ACCOMPLISHED 
; BY TRYING TO READ A 22-BIT ADDRESS AND COMPARING THE READ DATA WITH THAT 

; FROM THE EQUIVALENT 18 BIT ADORESS. 

:- 


3¢ 
; SET UP THE PARS 1 THROUGH 5 TO RELOCATE TO THE SAME ADDRESS 
3= 


1$: MOV #200 ,RO sSET THE PAGE BASE ADDRESS TO 200 $$$ 

MOV O@PARATB+2,R1 sPOINT AT THE START OF THE PAR ADDRESS TABLE $$$ 
2s: MOV RO,@(R1)+ sLOAD THE PAR 

ADO #200 ,RO sCALCULATE THE NEXT PAGE ADDRESS 

CMP @PARGA,R1 sLOOP UNTIL PARS 0 THROUGH 5 $$$ 

BNE es sARE LOADED. 


; 
; SET UP THE PDRS FOR , NO ABORT/TRAP,UPWARD EXPANSION,128 BLOCKS PER PAGE 


MOV #77406 ,RO sBIT PATTERN FOR THE PORS 

MOV @PDRATB,R1 sPOINT AT START OF PDR ADDR TABLE 
43: MOV RO,@C(R1)- ; 

CMP OPDRATE ,R1 sLOOP UNTIL ALL PORS HAVE 

BNE 4s sBEEN SET UP. 


3¢ 

; SET THE MEM MGT STATUS REC @3 FOR, 22 BIT ADDRESSSING, 
; NO UNIBUS MAPPING, NO D SPACE 
; 


MOV #20, SMMSR3 sSET UP STATUS REG #3 
; 


3? 

; USE PAR #5 TO DETERMINE WHETHER THIS IS AN 18 OR A 22 BIT MACHINE BY SETTING 
; IT TO 100000. THIS WILL SELECT A 22 BIT ADDRESS ON A 22 BIT MACHINE, 

; ON AN 18 BIT MACHINE HOWEVER, THE MSBS WILL BE LOST AND THE MEMORY LOCATION 
+ READ WILL BE THE EQUIVALENT 18 BIT ADDRESS. 

+ PAR #5 IS USED BECAUSE WE CAN BE SURE THAT THE DIAGNOSTIC WILL NOT COME 

; UNDER ITS INFLUENCE. 


MOV #100000,@PARSA ;LOAD THE PAGE ADDR INTO THE PAGE ADDR REGISTER 


3¢ 
; SET UP THE LOOP TO ATTEMPT TO READ A 22 BIT ADDR 


MOV #5 ,R3 sINITIALISE LOOP COUNT 
MOV @SDPBAS,R2 sSELECT THE VIRTUAL ADDRESS @SDPBAS, THIS WILL BE 
sBITS O TO 12 OF THE PHYSICAL ADDRESS 
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SEQ 0211 
HARDWARE TEST - DMAADR - 
8250 032602 010204 MOV R2,R4 sSAVE THE DATA ADDRESS 
8251 032604 062704 120000 ADD #120000, R4 sCONVERT THE VIRTUAL ADOR INTO AN ADDR WITHIN 
8252 ;THE INFLUENCE OF PAR 65. 
ris 032610 012737 000001 002260 MOV #BITO,BITLNG sINDICATE A 22 BIT MACHINE IN CASE IT IS 
ny 032616 106427 000340 63: MTPS @PRIO7 sDISABLE CLOCK INTERRUPTS 
8257 032622 010400 MOV R4,RO sSET UP THE MOVE SOURCE 
con 032624 012701 034156 MOV @DEST,R1 ;SET UP THE DESTINATION 
8260 3¢ 
8261 ; ENABLE THE MEM MGT AND ATTEMPT TO READ THE 22 BIT ADDRESS. IF A TRAP OCCURS 
8262 ; THEN THE HOST MUST BE A 22 BIT MACHINE SINCE WE HAVE ENSURED THAT 
8263 ; THE 18 BIT ADDRESS EXISTS. 
8264 := 
8265 
8266 032630 012777 000001 147460 MOV @B ITO, SMMSRO sENABLE MEM MGT 
8267 032636 004737 017154 JSR PC ,CKTRAP sPERFORM THE MOVE AND CHECK FOR A TRAP 
— 032642 005077 147450 CLR SMMSRO sDISABLE MEM MGT 
aby 032646 106427 000240 MTPS @PRIOS sENABLE CLOCK INTERRUPTS 
8272 022652 005737 002256 TST TP4FLG ;DID A TRAP OCCUR ? 
8273 032656 001022 BNE &$ sYES , THEN JUMP AND INDICATE A 22 BIT MACHINE 
8274 
8275 z+ 
8276 s SINCE A TRAP HASN'T OCCURED THEN EITHER THE MACHINE IS A 22 BIT MACHINE WITH 
8277 ; MEMORY AT THE ADDRESS JUST READ , OR , ITS AN 18 BIT MACHINE IN WHICH CASE 
rode ; THE ADDRESS JUST READ WOULD BE ONE OF THE DATA WORDS AT ADDRESS #@SDPBAS. 
8280 
8281 032660 023712 034156 CMP DEST ,CR2) sCOMPARE READ WORD WITH DATA WORD 
8282 032664 001017 BNE 8$ IF NOT THE SAME THEN JUMP AND INDICATE A 
8283 ; 22 BIT MACHINE. 
8284 
8285 3+ 
8286 ; IN ORDER TO MAKE SURE THAT THIS REALLY ISN'T A 22 BIT MACHINE I.E. THAT 
8287 ; THE MATCH OF THE READ WORD AND THE DATA WORD WAS NOT MERELY COINCIDENCE, 
aoee ; ANOTHER FOUR ADDRESSES ARE READ AND COMPARED WITH THE DATA. 
828 8° 
8290 
8291 032666 062702 000002 ADD $2 ,R2 ;SELECT NEXT TEST DATA ADDRESS 
8292 032672 062704 000002 ADD €2,R4 ;SELECT NEXT READ ADDRESS 
8293 032676 005303 DEC R3 ;DECREMENT THE DATA COUNT 
8294 032700 001346 BNE 6$ sREPEAT THE READ ATTEMPTS UNTILL ALL FIVE DATA 
8295 sWORDS HAVE BEEN SUCCESSFULLY MATCHED, AND THEN 
i 032702 005037 002260 CLR BITLNG sINDICATE AN 18 BIT MACHINE. 
297 
8298 ‘¢ 
8299 ; SET UP THE HIGHEST POSSIBLE TEST ADDRESS IN DMTSTA 
8301 ? 
8302 032706 012737 005252 002264 MOV #5252,DMTSTA sSET UP THE FIRST DMA TEST ADDRESS FOR THE 
8303 ; 18 BIT MACHINE. 
8304 032714 012737 000023 034152 MOV #19. ,BITSTD :SET THE BITS TESTED TO 18 BITS + 1. 
8305 032722 000406 BR 10$ sAVOID SETTING DMTSTA FOR THE 22 BIT MACHINE 
8306 032724 012737 125252 002264 83: MOV #125252,DMTSTA ;SET UP THE FIRST PAGE ADDR FOR 





r-— 
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8307 
8308 
8309 
8310 


r-— 





032732 012737 


032740 
8 


032746 
032746 
032750 


032754 


032760 
032762 


032766 
032770 


032772 
032776 


012737 


104431 
010037 


012701 


005004 
106427 


005204 
005005 


012703 
004737 
012701 
005737 
001403 


005004 
012701 
022704 


001447 
013737 
000241 
006037 


005337 


032737 


001343 
004737 
020037 
103336 


000027 


027530 


002262 


003604 


000340 


000020 


017466 


004204 
002256 


003604 
000002 


002264 
002264 
034152 


176000 


017414 
002262 


- DMAAOR - 


034152 


000004 


034160 


002264 


MOV 


3¢ 


23. ,BITSTD 


3A 22 BIT MACHINE. 
sSET THE BITS TESTED TO 22 BITS +1. 


+ TRY AND FIND A COMPLEMENTARY PAIR OF ADDRESSES WITHIN THE MEMORY AND SAVE 
; THE CONTENTS OF THE TWO AREAS. THE TEST IS ABANDONED IF A COMPLEMENTARY 
; PAIR HAS NOT BEEN FOUND BEFORE THE AREA OF MEMORY CONTAINING THE 

; DIAGNOSTIC IS ENCOUNTERED. 


10$: MOV @TP4BRT, 804 
MEMORY FFREM 
MOV @BUFBAS,R1 
CLR R4 
MTPS @PRIO7 
12$: INC R4 
CLR RS 
MOV #16. ,R3 
JSR PC ,OMRW 
MOV @BUFMID,R1 
TST TP4FLG 
BEQ 14$ 
CLR R4 
MOV @BUFBAS,R1 
14$: CMP oR4 
BEQ 17$ 
MOV DMTSTA,ODTSTA 
CLC 
ROR OMTSTA 
DEC BITSTD 


3¢ 
; CHECK THAT 
i- 


3¢ 
sSINCE WE ARE NOW INSIDE THE DIAGNOSTIC, WE INCREMENT BIT #14 OF THE DMTSTA 


sCHANGE THE 004 TRAP VECTOR TO POINT TO 
sTP4BRT SINCE THIS IS THE ROUTINE ASSOCIATED 
sWITH THE BYTE SUBROUTINE CKTRPB. 


sGET THE ADDRESS OF THE FIRST FREE WORD 
TRAP C$MEM 
MOV RO,FFREM 
sOF MEMORY ABOVE THE DIAGNOSTIC. 


sPOINT AT THE BUFFER WHERE THE CONTENTS OF 
;THE MEMORY BEING READ ARE TO BE SAVED. 
sCLEAR THE COMPLEMENTARY PAIR INDICATOR (CPI) 
sDISABLE LTC INTERRUPTS 


sINCREMENT THE CPI 

sINDICATE THAT A SAVE OF THE DATA AT 
sCDMTSTA) IS REQUIRED. 

sSET THE NUMBER OF BYTES TO BE READ 

sSAVE THE DATA CONTAINED AT ADDRESS DMTSTA. 
sPOINT AT SECOND STORAGE AREA 

sIF WE HAVE VALID MEMORY THEN AVOID CLEARING 
;THE CPI AND RESETING THE SAVE AREA ADOR 


sCLEAR THE CPI. 

sRESET THE ADDR FOR THE SAVED DATA STORE 
sIF A PAIR OF COMPLEMENTARY ADORESSSES HAVE 
sBEEN FOUND THEN 

:GO AND WRITE THE TEST DATA TO THESE ADORS. 
sSAVE THE OLD DMTSTA 

sCLEAR CARRY READY FOR THE ROTATION 
sCOMPLEMENT THE DMTSTA TO PRODUCE THE NEXT 
; DMA TEST ADOR. 

sDECREMENT THE NUMBER OF BITS TESTED COUNT 


THE NEW DMTSTA IS NOT INSIDE THE DIAGNOSTIC PROGRAM 


#176000, DMTSTA 


12$ 
PC .OM168 
RO,FFREM 
12$ 





ag Ba ees > 1252 , IF IT IS THEN WE'RE 

; ‘ 

sBRANCH AND CONTINUE WITH THE SEARCH 

sCONVERT THE DMTSTA TO A PHYSICAL ADDR. 

sARE WE INSIDE THE DIAGNOSTIC REGION ? 

sNO , THEN BRANCH AND CONTINUE WITH THE SEARCH 





SEQ 0212 
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HAROWARE TEST 


r-— 


033072 
033100 


033102 
033110 
033114 
033120 
033122 
033130 


033132 
033136 


033142 


033146 


033152 
033160 


033166 
033172 


8400 033176 


033202 


033206 
033212 





022737 
001014 


012737 
062700 
020037 
103404 
012737 
000716 


005237 
012701 


000137 


012700 


013737 
013737 


012703 
012705 
012701 
004737 


005237 
012701 


000252 


000652 
040000 
002262 


000016 


005320 
010241 


034122 


005132 


002264 
034160 


000020 
000001 
000340 
025352 


005320 
010307 


017466 
002256 


034154 


- DMAADR - 


002264 


002264 


034152 


034154 
002264 


002264 


sPHYSICAL ADDRESSS AND IF WE'RE STILL INSIDE THE DIAGNOSTIC WE ABANDON THE 
sTEST. ONCE WE ARE IN THIS REGION WE ARE ONLY ABLE TO TEST THE LOWEST 14 BITS. 


15$: INC 


16$: JMP 


3¢ 
; WRITE THE TEST DATA INTO THE TWO AREAS JUST FOUND. IF A TRAP OCCURS WHILE 
; WE ARE WRITING DATA INTO THESE AREAS THEN THE HOST MACHINE IS AT FAULT. 


17$: MOV 


3¢ 
; SET UP THE DHV11-M TO PERFORM THE DMA. 


#252 ,DMTSTA 
15$ 


652 ,OMTSTA 
#40000 ,RO 
RO, FFREM 
15$ 

#14. ,BITSTD 
12$ 


ERRNBR 
9€M4402,R1 


34$ 


@SDPBAS,RO 


DMTSTA,DUMY 
ODTSTA,DMTSTA 


#16. ,R3 


#340,R1 
PC ,STPSW 


ERRNBR 
#€M4403,R1 


DUMY ,DMTSTA 
#SDP2B ,RO 
PC ,OMRW 
TP4FLG 

16$ 






















SEQ 0213 


sIF THE BIT HAS ALREADY BEEN SET THEN 

sABANDON THE TEST,AFTER REPORTING THE ERROR , 
; BECAUSE NO SUITABLE MEMORY HAS BEEN FOUND. 
sSET THE BIT 

sADD THE BIT INTO THE PHYSICAL ADDR 

sIF WE'RE NOW STILL INSIDE THE DIAGNOSTIC THEN 
sREPORT ERROR AND ABANDON THE TEST. 

sOTHERWISE SET THE BITS TESTED TO 14 BITS. 
sCONTINUE WITH THE SEARCH. 


sSET THE ERROR NUMBER TO 4402 
sSELECT MESSAGE TO BE REPORTED. 
; " NO SUITABLE ADDR FOUND. DMA TEST ABORTED “ 


JUMP TO THE ERROR. 


sSET_ UP THE SOURCE ADDR FOR THE MOVE AS OUR 
sTEST DATA PATTERN. 

sSAVE THE LOWER DMTSTA 

sSTART WITH THE HIGHER OF THE TWO 

; COMPLEMENTARY ADDRESSES. 

sSET THE NUMBER OF DATA BYTES TO BE WRITTEN 
sINDICATE TO WRITE TO OMTSTA 


sSET PRIORITY 7 TO DISABLE THE CLOCK 
; 


sSET THE ERROR NUMBER TO 4403 

sSELECT THE MESSAGE, 

; “HOST FAILURE. WRITE FAILED TO AN ADDR WHICH 
sHAD BEEN SUCCESSFULLY READ, TEST ABANDONED “ 


sPERFORM THE TRANSFER 
sEXIT IF HOST FAILURE 
sAND REPORT ERROR. 
sSELECT THE LOWER DMA TEST ADDR. 
sSELECT THE NEXT DATA PATTERN 
sPERFORM THE TRANSFER 
sEXIT IF HOST FAILURE 
i . 
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HARDWARE TEST - DMAADR - 
8419 s- 


SEQ 0214 


8422 SET INTERNAL LOOPBACK, ENABLE THE RECIEVER FUNCTION ON THE LINE 
8423 ; SET THE LPR ON THE LINE TO 38.4K BAUD, 8 BITS PER CHARACTER, ODD PARITY, 
aes ; 2 STOP BITS. ENABLE THE TRANSMITTER ON THE LINE. 

e= 


8427 033254 005237 005320 INC ERRNBR sSET THE ERRNBR TO 4404 


name 033260 004737 017756 JSR PC ,.FINACT rte oa AN ACTIVE LINE ON WHICH TO PERFORM 
8432 033264 010102 MOV R1,R2 +SAVE THE LINE NUMBER ON WHICH THE DMA WILL OCCUR 
8433 033266 012701 010404 MOV 9E€M4404,R1 ;SELECT THE MESSAGE, 
8434 ; “NO ACTIVE LINES , TEST ABANDONED” 
8435 033272 103402 BCS +6 sEXIT IF A LINE COULD NOT BE FOUND , AFTER FIRST 
8436 033274 000137 033724 JMP 30$ sRESTORING THE CONTENTS OF MEMORY. 
oo id 033300 010201 MOV R2,R1 sRESTORE THE ACTIVE LINE NUMBER. 

3¢ 
8439 ; AN ACTIVE LINE HAS BEEN FOUND 
8440 ‘- 


$441 

8442 033302 012700 000204 MOV #204 ,RO sPASS THE LNCTRL CONTENTS 

8443 033306 004737 027234 JSR PC ,WTWLNC sINITIALISE THE LNCTRL REGISTER 
8444 033312 012700 177670 MOV #177670,R0 sPASS THE LPR CONTENTS 

8445 033316 004737 027264 JSR PC ,WTWLPR sINITIALISE THE LPR REGISTER 
8446 033322 004737 025646 JSR PC, TXENBL sENABLE TRANSMITTER ON THE LINE 


7¢ 
8449 ; INITIATE THE OMA 
8450 3° 


8452 033326 013705 034160 MOV ODTSTA,RS sSTART FROM THE HIGHER OF THE PAIR OF ADOR. 
8453 033332 012704 005132 MOV @SDPBAS,R4 sSET UP THE ADDR OF THE DATA PATTERN 

8454 033336 010137 034150 MOV R1,80$ sSAVE THE LINE NUMBER FOR THE DMA 

= 033342 012737 000002 034146 MOV 2,708 sINITIALISE THE LOOP COUNT 

8457 033350 012700 000052 18$: MOV #52,R0 sSET UP THE LSB'S 

8458 033354 005003 CLR R3 sCLEAR THE REG THAT WILL HOLD THE 6 MSB‘S 
8459 033356 012702 000006 MOV 6 ,R2 sCONVERT THE DMTSTA INTO 

8460 033362 006305 20$: ASL RS 3A PHYSICAL ADORESS WITH 

8461 033364 006103 ROL R3 ;THE MSB‘S IN REG 93. 

8462 033366 005302 DEC R2 ; 


8463 033370 001374 BNE 20$ i 

8464 033372 032705 000100 BIT #100,R5 sTEST BIT #6 OF THE DMTSTA 

8465 033376 001402 BEQ 22% ; 

8466 033400 012700 000025 MOV #25,RO0 sALTER THE LSB‘S IF BIT #5 WAS SET. 
8467 033404 060005 228: ADD RO,RS sADO IN THE LSB‘S 

eee 033406 052703 000200 BIS #200 ,R3 sSET BIT #7. 


8470 033412 013777 034150 146562 MOV 80$,8CSRA sSELECT THE LINE ON WHICH TO PERFORM THE DMA. 


8472 033420 012737 010465 005320 MOV €4405.,ERRNBR ;SET ERROR NUMBER 4405 

8473 033426 012701 010443 MOV @€M4405,R1 sSELECT THE MESSAGE, 

8474 ;_" DMA_START BIT FOUND SET BEFORE DHA INIT. 
8475 ;TEST ABANDONED” 





r-— 





CVDHCOO OHV11-M 
HAROWARE TEST 


8476 033432 
8477 033436 


8479 033440 
8480 033446 
8481 033452 


8487 033456 
8488 033462 


8490 033466 


8492 033472 
8493 033476 


8496 033502 


8498 033504 
8499 033506 
8500 033512 
8501 033516 


8507 033520 
8508 033522 


8510 033526 
8511 033534 


8515 033540 
8516 035544 


8518 033546 
8519 033552 
8520 033554 
8521 033556 


8523 033562 
8524 033566 


8528 033572 
8529 033574 


8531 033576 








105777 
100532 


012777 


010577 
110377 


012701 
013702 


005237 
004737 
012701 


103110 


010402 


012704 
004737 
010204 


005003 
012705 


012737 
012701 


017702 
100067 


005237 
012701 


005305 
001453 


000753 


146560 


000020 
146542 
146540 


170144 
002202 


005320 


027160 
010537 


000005 
017354 


000200 


010467 
010613 


146440 


170301 


024726 


005320 
010675 


- DMAADR - 


146552 
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STXAD2A 
30$ 


#16. ,@TXBFCA 


RS ,@TXADIA 
R3,@TXAD2A 
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sTEST THE DUT DMA-START BIT 

sEXIT WITH ERROR IF SET ,AFTER FIRST RESTORING 
sTHE CONTENTS OF MEMORY. 

sSET UP CHARACTER COUNT 

sSET UP BITS 0 TO 15 OF THE PHYISCAL ADOR. 
sSET UP BITS 16 TP 21 , AND INITIATE THE CMA. 


3¢ 
; WAIT FOR THE DMA TO COMPLETE AND THE LAST CHARACTER TO BE RECIEVED 


MOV 
MOV 


#170144,R1 
CSRA,R2 


ERRNBR 


PC ,WAIBIS 
9EM4406,R1 


sTEST BIT 15, TIME-OUT OF 100 MS. 
sPASS THE ADOR OF THE REG TO TEST. 


sSET ERROR NUMBER TO 4406 


sWAIT FOR BIT TO SET 

sSELECT THE MESSAGE , 

s_“ TIME-OUT OCCURED WAITING FOR DMA TO 
sCOMPLETE. TEST ABANDONED” 

sEXIT IF TIME-OUT OCCCURED, AFTER FIRST , 
sRESTORING THE CONTENTS OF MEMORY. 

sSAVE R4 

sSET 5 MS DELAY 

sDELAY TO ALLOW LAST CHARACTER TO BE RECIEVED 
sRESTORE R4 


+ 
s READ THE CONTENTS OF THE RXFIFO AND COMPARE THEM WITH THE CORRECT DATA 


005320 24%: 


CLR 
MOV 


MOV 
MOV 


MOV 
BPL 


MOV 

BIC 
BNE 
JSR 


INC 
MOV 


DEC 
BEQ 


R3 
#128. ,R5 


#4407. ,ERRNBR 


9€M4407,R1 


ORBUFA ,R2 
30$ 


#170301,R0 
R2,RO 

28% 

PC ,,SAVBMP 


ERRNBR 
9€M4408,R1 


R5 
30$ 


243 


sCLEAR THE READ DATA COUNTER 
sSET THE MAX BMP CODE READ COUNT 


sSET THE ERRNBR TO 4407 

sSELECT THE MESSAGE , 

:_" RXFIFO EMPTY TOO SOON, OMA FAILED 
;TEST ABANDONED” 


sREAD THE CHARACTER FROM THE FIFO 

sBRANCH TO REPORT ERROR IF FIFO EMPTY TOO SOON, 
sAFTER FIRST RESTORING THE CONTENTS OF MEMORY. 
sSET UP BIT MASK OF A BMP CODE 

sTRY TO CLEAR THE BMP CODE MASK 

sBRANCH IF NOT A BMP CODE 

sSAVE THE BMP CODE ON THE QUEUE 


sSET THE ERRNBR TO 4408 

sSELECT THE MESSAGE, 

s_" TOO MANY BMP CODES FOUND IN THE RXFIFO, 
;TEST ABANDONED” 


sDEC THE MAX BMP CODE READ COUNT 

sGO REPORT ERROR IF TOO MANY BMP CODES FOUND , 
sAFTER FIRST RESTORING THE CONTENTS OF MEMORY. 
sDON‘'T COUNT THE BMP CODE AS A VALID CHARACTER 





SEQ 0215 














033600 
033606 
033610 


033714 
033716 


033724 
033732 
033740 
033744 
033750 
033754 
033760 
033764 
033766 


033774 
034000 


034004 
034010 


034012 
034020 





012737 
010201 
012702 


012737 
012737 


122401 


012737 
012701 


012737 


004737 
103004 


000615 
012737 


013737 
013737 
012700 
012705 
012703 
004737 
005737 
001012 
013737 


012700 
004737 


005737 
001411 


012737 
012701 





010471 
010740 


015402 
177777 


034162 
000020 
034146 


005156 
002264 


010472 
010775 


014100 
023152 


000001 


010473 
011024 


005324 
034162 


034162 


034154 
002264 


002264 


005320 31%: 


005320 28%: 
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HARDWARE iEST 


#4409. ,ERRNBR 


R2,R1 
9€M4409,R2 


#€R9101, ERRBLK 


e- is sucss 
C(R4)+,R1 
30$ 

sucss 

R3 


@SOP2B ,R4 
OMTSTA,RS 


#4410. ,ERRNBR 


#€M4410,R1 


#E€ROSO3, ERRBLK 


PC ,PUFIFO 
30$ ; 


18$ 
#1,SUCSS 


3¢ 
; RESTORE THE ORIGINAL DATA IN THE MEMORY 


DMTSTA,DUMY 


OOTSTA,OMTSTA 


@BUFBAS,RO 
#1,R5 

#16. ,R3 

PC ,OMRW 
TP4FLG 


31% 
DUMY ,DMTSTA 


@BUF MID, RO 
PC ,OMRW 


TP4FLG 
32$ 


$4411. ,ERRNBR 


9€M4411,R1 
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SEQ 0216 







sSET THE ERRNBR TO 4409 

sSAVE THE CHARACTER FROM THE FIFO 
sSELECT THE MESSAGE , 

; “ BAD BIT BETWEEN BITS 0 AND “ 
sSELECT THE ERROR ROUTINE. 
sINDICATE ‘BAD BITS’ FAILURE 


sCOMPARE CHAR FROM FIFO WITH THE CORRECT DATA. 
sBRANCH IF INCORRECT AND RESTORE MEM CONT’S. 
sINDICATE NON TEST SPECIFIC FAILURE €.G. TIME-OUTS 
sCOUNT THIS CHARACTER. 

sHAVE WE RECIEVED ALL THE CHARACTERS ? 

sLOOP UNTIL ALL CHARACTERS (NON-BMP) ARE READ. 
sDECREMENT THE LOOP COUNT 

sBRANCH IF BOTH DMA‘S ARE COMPLETED 

sSET UP THE SECOND DATA PATTERN 

sSET UP THE OTHER DMA TEST ADDRESS 


sSET ERRNBR TO 4410 

sSELECT THE MESSAGE , 

;_“ RXFIFO FAILED TO PURGE, TEST ABANDONED ” 
sSELECT THE ERROR ROUTINE 


sPURGE THE RXFIFO 

sEXIT WITH ERROR IF FIFO WOULD NOT PURGE , 
sAFTER FIRST RESTORING THE CONTENTS OF MEMORY. 
sOTHERWISE REPEAT. 


sINDICATE THAT WE HAVE BEEN ABLE TO TEST, 
sSOME OF THE BITS. 






















sSTART WITH THE HIGHER OF THE PAIR OF DMTSTA 
2 

sPOINT AT THE START OF THE SAVED DATA AREA 
sSELECT WRITE TO COMTSTA) 

sPASS NUMBER OF BYTES TO BE WRITTEN 

sRESTORE THE DATA 

sGO REPORT ERROR IF A TRAP OCCURED 


; 

sNOW RESTORE THE DATA FROM THE LOWER 

s0F THE PAIR OF TEST ADDRESSES. 

sPOINT AT THE START OF THE SAVED DATA AREA 
sRESTORE THE DATA 


sGO REPORT ANY ERRORS IF A NO TRAP 
s OCCURED DURING THE RESTORE. 


sSET THE ERROR NUMBER TO 4411 
sSELECT THE MESSAGE , 

s “ HOST FAILURE. WRITE FAILURE TO AN ADDR 
sWHICH HAD PREVIOUSLY BEEN SUCCESSFULLY 





















CVDHCDO DHV11-M FUNC TST PART 3 MACRO VOS.00 Thursday 25-Apr-85 16:37 Page 144-8 


HARDWARE TEST 


8600 034034 
034040 
034042 
8603 034046 
034050 
034056 


034060 
8612 034066 
034070 
034072 
8615 034074 
034074 
034076 
034100 
034104 
034110 
034112 
034114 
034120 


034122 
034122 


8622 034124 


034130 
034136 


034142 
034142 
034144 


034146 
034150 
034152 
8636 034154 


- DMAADR - 


012737 014100 005324 
000433 


005737 
001430 
013701 
005301 
022737 
001021 


032737 
001416 
010102 
005202 


010246 
010146 
012746 
012746 
010600 
104414 
062706 
000401 


104460 


106427 
013737 
005037 


104432 
000020 


000000 
000000 
600000 
000000 


034162 
034152 
000001 


000040 


005554 
000003 


000010 


000240 
002254 
002222 


034162 


002164 


000004 


MOV 
BR 


E€ROSO3, ERRBLK 
34$ 


SEQ 0217 


sWRITTEN 70. ” 
sSELECT THE ERROR ROUTINE 
sREPORT THE ERROR 


3¢ 
; HAS THE TEST BEEN SUCCESSFUL, PRINT THE BITS TESTED IF IT HAS, 


; REPORT THE ERRORS OTHERWISE. 


32$: 


SuUCSS 

34$ 
BITSTD,Ri 
R1 
#1,SUCSS 
34$ 


sIF THE ERROR IS NON TEST SPECIFIC THEN 

sBRANCH TO REPORT ERRORS 

sLOAD THE NUMBER OF BITS TESTED 

sDEC TO GIVE THE BIT POSITION OF THE MSB TESTED. 
;IF THE BITS TESTED ARE BAD THEN 

sBRANCH AND REPORT ERRORS. 


3¢ 
+ OTHERWISE DETERMINE IF PRINTING OF THE SUCCESSFULLY TESTED BITS WAS REQUESTED. 


60$: 


3¢ 


#68 ITOS,OPTION 
60$ 

R1,R2 

R2 
€F4401,R1,R2 


@PRIOS 
TP4VEC 804 
CTRLCF 


TST 


s PRINT THE BITS TESTED IF THE SOFTWARE 
sOPTION HAS REQUESTED IT 

sCALCULATE THE NUMBER OF BITS WHICH HAVE 

; BEEN TESTED SUCCESSFULLY. 

sPRINT THE NUMBER OF BITS TESTED MESSSAGE. 


MOV R2,-CSP) 
MOV Ri, -(SP) 
MOV EF 4401, -( SP) 
MOV @3,-(SP) 
MOV SP ,RO 
TRAP C$PNTB 
ADD 10, SP 
sEXIT THE TEST 
; REPORT ERRORS 
TRAP CSERROR 


sENABLE THE CLOCK 
sRESTORE THE NORMAL 004 TRAP VECTOR 
sINDICATE THAT WE ARE NOT WITHIN A TEST 


TRAP 
- WORD 


CsEXIT 
L10030-. 


i Shebeesessseeseeseesee LOCAL VARIBLE AREA seeeseceececsccescceeececesecer 


70$: . WORD 
803: - WORD 
BITSTD: .WORD 
DUMY : . WORD 


oooo 





sCOUNTER FOR THE NUMBER OF DMA‘S COMPLETED 
sSAVE AREA FOR THE ACTIVE LINE NUMBER 
sNUMBER OF BITS TESTED 
sDUMMY VARIABLE 
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HARDWARE TEST - DMAAOR - 


8637 034156 000000 DEST: .WORD 0 sSAVE AREA FOR READ WORD , WHEN DETERMINING 
8638 sMACHINE ADORESS LENGTH. 

8639 034160 000000 ODTSTA: .WORD 0 sHIGHER OF THE PAIR OF COMPLEMENTARY ADOR. 
8640 034162 000000 SUCSS: .WORD 0 sSUCCESS INDICATOR, -1 - ERROR DUE TO BAD BITS 
8641 ; 1 - SUCCESSFUL TEST 

8642 ; 0 - OTHER ERRORS 


8644 90 
8645 3266000066666 264646462446 604400644848 END 9264460464664 6066464 4660646046406460464660600084 


8646 - 


SEQ 0218 


8650 034164 ENOTST 
034164 L10030: 


034164 104401 TRAP CSETST 





i: 









HARDWARE TEST 

































8698 

8699 034220 
8700 034226 
8701 034234 
8702 034242 















000005 
012737 


123727 
001402 


104432 
000650 


104450 
103402 


104432 
000640 


012737 
012737 
012737 
012737 





000005 


002176 


177777 
000001 
021305 
011220 
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002224 


000004 


002222 
005316 
005320 
005322 


-SBTTL HARDWARE TEST - MODLPB - 
5O¢ SHOROSOS OE 004000000006 00 060000000000000000 66 0000000000000000004000000000000 
3% - Modem Loopback Test - 
3% This test is used to move data through e modem which is connected to 
3% one of the device serial ports. This test is run only if Modem 
3% ee is specified. This test utilizes the following operator 
3¢ i alogue: 
3% MODEM BAUDRATE IN BPS: (D) 1200 ? 
3% TYPE <CR> WHEN MODEM LINK ESTABLISHED: (L) Y ? 
3% MODEM STATUS SIGNAL REPORT: 
34 LINE @n: OSR=n, RI*n, DCD=n, CTS=n 
3% wee repeated for each active line 
3% NUMBER OF 256 BYTE DATA PATTERNS TO SEND ON EACH SELECTED LINE 
3* (1-255, O=SEND UNTIL tC): (0) 1 ? 
3% PRINT MODEM STATUS SIGNAL REPORT AFTER EACH PATTERN: (L) Y ? 
3* 
3% At the completion of sending the specified number of data patterns the 
3% test issues the following prompt: 
3% EXIT THE TEST (N = LOOP BACK TO SEND MORE DATA): (L) Y ? 
34 
3% If extended error reporting is allowed, ea report is printed at the end 
3% of each date pattern with the following format: 
3% MODEM LOOPBACK TEST STATUS REPORT: PATTERN @nnn (D0) COMPLETED. 
3% 
3% This test is performed using 8 bits per cheracter, 1 stop bit, and no 
3% perity. This test does not support split speed. All selected lines 
3% are tested eat the selected beudrate. An error summery is reported et 
3% the end of the test if eny lines have exceeded the number of individuel 
3% data errors to report as selected in the Software P-Teble dialogue. 
3% 
b-- S606060666060600060006 060004060000 60000000000000000000000000000000000000008 
BGNTST 
TS:: 
TNUM == TNUM «+ 1 sINCREMENT THE ASSEMBLY TIME TEST COUNTER. 
MOV @TNUM, TSTNUM sSET UP THE TEST NUMBER. (89) 


3¢ 
; Verify thet the test should be performed. Must heve the following: 
3 Modem loopback selected. 


3 Manuel intervention elloned. 
i- 
CMPB LOPBCK, 04 sTEST THE LOOPBACK TYPE INDICATOR. 
BEQ 2s sMODEM LOOPBACK SELECTED? YES, CONTINUE TEST. 
EXIT TST 3NO, ABORT THE TEST. 
TRAP CSEXIT 
-WORD L10031-. 
23: MANUAL sCHECK FOR MANUAL INTERVENTION ALL , 
TRAP C$MANI 
BCOMPLETE 4$ sMANUAL INTERVENTION ALLOWED? bar as er +4 
EXIT TST 3NO, ABORT THE TEST. 
TRAP CsEXIT 
«WORD 1L10031-. 
4$: MOV #-1,CTRLCF sINDICATE THAT WE ARE IN A TEST. 
MOV #1 ,ERRTYP 3SET ERROR TYPE AS FATAL IN ERROR TABLE. 


MOV #8901..ERRNBR  ;SET THE FIRST ERROR NUMBER IN ERROR TABLE. 
MOV @EMBS901,ERRMSG ;SET ERROR MESSAGE ADORESS IN ERRTBL. 





8703 034250 
8704 


8718 034320 





005037 


CVDHCDO DHV11-M FUNC TST PART 3 MACRO VOS.00 Thursdey 25-Apr-85 16:37 Page 145-1 


HAROWARE TEST - MODLPB - 


002502 


017234 
035046 


020302 






SEQ 0220 


CLR ERSMRF sINITIALIZE THE “REPORT ERROR SUMMARY” FLAGS. 


3° 

; Reset the DUT to a known state, remove the status codes from the fifo. 
; Cleer TX end RX interrupt enable bite in the CSR. 

; This subroutine reports error >>>>> 8901 <<<<<, 


g@ 
JSR PC .CLNRST sRESET THE DHV11-M, REPORT ANY ERRORS FOUND. 
BCS .+6 sSKIP EXIT OF TEST IF NO FATAL ERROR FOUND. 
JMP 60% sRESET FAILURE, ABORT THIS TEST. 


3¢ 
; Set up for Transmit and Receive interrupts. 


i- 
MTPS @PRIOS sDISABLE DEVICE INTERRUPTS. 
SETVEC TXVECA,@TXDOMA, @PRIOS sSELECT OMA TX INT SERVICE RTN. 
MOV @PRIOS , -(SP) 


MOV @TXOMA , - (SP) 
MOV TXVECA, -(SP) 
MOV @3,-(SP) 


TRAP C#SvEC 

ADD #10,SP 
SETVEC RXVECA,@RXCHRS,@PRIOS ;SELECT RX INT SERVICE RIN. 

MOV @PRIOS , - (SP) 


MOV @RXCHRS , -C SP) 
MOV RXVECA, -(SP) 
MOV @3,-(SP) 
TRAP C#SVEC 
ADD #10, SP 

MTPS @PRIOO sALLOW INTERRUPTS. 

3¢ 

; Clear the cumuletive error counters (one for each line). 


- 
MOV @ERCNTB,RO 
JSR PC ,CLRi6W 
3¢ 


; Print the the test neme. 
i- 
PRINTF #€F 8901, #EM8901 


sCLEAR THE RX ERROR COUNTERS TABLE. 


MOV #€M8901,-( SP) 


3¢ 

+ Prepere to cell the set up routine. 

3 Get the desired beudrete from the operetor. 

$ Celculete proper DUT LPR contents. 

F Celculete the proper RX time-out velue for this speed. 
3 Set up the bit mep of unused TX/RX bite. 
g° 





sGET DUPLICATE COPIES OF BAUDRATE CODE 
ASL R1 s IN THE UPPER BYTE OF THE NEW 
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SEQ 0221 
HARDWARE TEST - MODLPB - 
8742 034424 050001 BIS RO,R1 s LPR CONTENTS. 
8743 034426 000301 SWAB Ri 
8744 034430 042701 000377 BIC 0377,R1 sSET UP 1 STOP BIT, NO PARITY, 8 BITS/CHAR 
Ae 034434 052701 000030 BIS @30,R1 s IN THE LPR CONTENTS. 
8746 
8747 034440 004737 021014 JSR PC ,GETTIM sGET TIME-OUT BASED ON MINIMUM BAUDRATE IN USE. 
be 034444 012737 177400 002226 MOV #177400, IBM sFORM BIT MAP OF UNUSED TX/RX BITS. 
4 3° 
deo F Set up a 256 byte date pattern. 
. s* 
8752 034452 005003 CLR R3 sPREPARE TO START DATA PATTERN AT 255. 
8753 034454 012702 003604 MOV @BUFBAS,R2 sGET THE BASE OF THE DATA PATTERN BUFFER. 
8754 034460 010204 MOV R2,R4 
8755 034462 105303 6$: DECB R3 sGET THE NEXT BYTE OF THE DATA PATTERN. 
8756 034464 110324 MOVB R3,(R4)+ sWRITE A BYTE OF THE DATA PATTERN. 
8757 034466 105703 TSTB = R3 sCHECK FOR DONE WRITING DATA PATTERN. 
8758 034470 001374 BNE 6$ sDATA PATTERN DONE? NO, LOOP TO DO NEXT BYTE. 
8759 sYES, WRITE 32 BYTE OVERFLOW REGION. 
8760 034472 010205 MOV R2,R5 sPREPARE SOURCE POINTER. 
8761 034474 012700 000020 MOV #16. ,RO s;PREPARE LOOP COUNTER. 
8762 034500 012524 8$: MUV CR5)+,CR4)+ sWRITE 2 BYTES OF THE OVERFLOW PATTERN. 
8763 034502 005300 DEC RO sCOUNT THESE 2 BYTES. 
8764 024504 001375 BNE 8$ 316 WORDS WRITTEN? NO, LOOP TO WRITE ANOTHER. 
8765 sYES, COMPLETE DATA PATTERN IS DONE. 
hae 034506 012703 000400 MOV #256. ,R3 3SET DATA PATTERN LENGTH TO 256. 
876 3° 
dae. ; Set the DUT RTS and OTR bits for the active lines. 
876 3° 
8770 034512 012700 011000 MOV #11000 ,RO sSPECIFY TO SET RTS AND OTR. 
8771 034516 013705 002174 MOV ACTLNS RS sSPECIFY ACTIVE LINES. 
Ah | 034522 004737 027234 JSR PC ,WTWLNC 3SET DUT RTS AND OTR ON ALL ACTIVE LINES. 
8 3¢ 
8774 ; Wait for the operator to establish the modem connection. 
8775 ; Prompt “TYPE <CR> WHEN MODEM LINK ESTABLISHED: ” 
8776 $- 
8777 034526 012737 000001 002266 MOV #1,GMANWD ;SET UP DEFAULT ANSWER TO YES. 
8778 034534 GMANIL EMLMSG,GMANWD,1, YES 
034534 104443 TRAP C$GMAN 
C34536 000404 BR 10000$ 
034540 002266 -WORD GMANWD 
034542 000130 -WORD TSCODE 
034544 013156 -WORD EMLMSG 
034546 000001 -WORD 1 
034550 10000$: 
8779 3+ 
8780 ; Report the state of the modem status signals. 
root ; Set default of printing modem status after every date pattern. 
8 2 ad 
8783 034550 004737 021614 JSR PC .MSSRPT 
aa 034554 012737 000001 002270 MOV #1,PMSFLG 
878 :¢ 
8786 ; Ask operator for the number of date patterns to send. 
8787 ; Prompt: “NUMBER OF 256 BYTE DATA PATTERNS TO SEND ON EACH SELECTED LINE 
thes 3 (1-255, O=SEND UNTIL tC): (D) 1 2" 
- 
8790 034562 012737 000001 002266 10%: MOV #1,GMANWD sSET DEFAULT NUMBER OF PATTERNS TO 1. 
8791 034570 GMANID NDPMSG,GMANWD,0,377,0,255, YES 





r-— 
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HAROWARE TEST 


—— 


034632 
034634 


034640 
034644 


034646 


034652 
034656 


034664 
034670 


034676 


034702 
034702 





005205 
004737 


004737 
103100 


004737 
004737 
012737 


004737 
012737 


004737 


010546 


- MODLPB - 


002266 


021324 
023152 


023426 
021204 
021306 


023462 
021314 


026450 


005320 


005320 





TRAP C$GMAN 
BR 10001$ 
WORD GMANWD 
WORD TSCODE 
-WORD NOPMSG 
-WORD 377 


-WORD TSLOLIM 
-WORD  TSHILIM 


100018: 
MOV GMANWD ,R4 
CLR RS sCLEAR THE DATA PATTERN COUNTER. 
i¢ 
; Ask if modem status signals should be reported after each data pattern. 


; Prompt: “PRINT MODEM STATUS SIGNAL REPORT AFTER EACH PATTERN: (L) Y ?” 
: Use last response as default (default of Yes the first time). 


g2° 
GMANIL PMSMSG,PMSFLG,1, YES 
TRAP C$GMAN 


BR 10002$ 
-WORD PMSFLG 
-WORD TSCODE 
-WORD PMSMSG 
-WORD 1 
100023 
3¢ 
; Set up the DUT and TX/RX veriebles. 
: Ri - TX, RX LPR contents. 
; R2 - Start address of date pattern to TX/RX. 
R3 - Length of dete pattern. 
Sune the data. 
i2s: INC RS sCOUNT THIS DATA PATTERN. 
JSR PC .MOOSUP ;SET UP THE DUT AND TX/RX VARIABLES. 
JSR PC ,PUFIFO sPURGE THE DUT RECEIVE CHARACTER FIFO. 
Bcc 60$ sABORT THIS TEST IF FIFO WOULD NOT PURGE. 
JSR PC ,PURRXB sPURGE THE RX CHAR BUFFER IN MEMORY. 
JSR PC, INIOMA ;SEND THE FIRST BATCH OF DATA PATTERNS. 


MOV #8902.,ERRNBR ;SET ERROR NUMBER TO 8905. 
3* 
; This routine reports errors with numbers >>>>> 8902 thru 8907 <<<<<. 


+ JSR PC ,ROCHRS sREAD AND VERIFY THE RX CHARACTERS. 
MOV #8908.,ERRNBR ;SET ERROR NUMBER TO 8908. 


: This routine reports errors with numbers >>>>> 8908 thru 8911 <<<<<. 


oa 
JSR PC, TXRREP sREPORT FINAL ERRORS FROM RX/RX. 
7? 
; Report end of date pattern if allowed. 
“MODEM LOOPBACK TEST STATUS REPORT: PATTERN @nnn (D) COMPLETED. “ 
Report the modem status signal states if requested. 


PRINTX @€DPFMT,RS 


¥ hdd 


MOV RS, -(SP) 



















SEQ 0222 
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SEQ 0223 
HAROWARE TEST - MODLPB - 

034704 012746 007764 MOV SEDPFMT, -( SP) 

034710 012746 000002 MOV @2,-(SP) 

034714 010600 MOV SP ,RO 

034716 104415 TRAP CSPNTX 

034720 062706 000006 ADD 06 ,SP 
8832 034724 005737 002270 TST PMSFLG sCHECK THE “PRINT MODEM STATUS” FLAG. 

8833 034730 001402 BEQ 14$ sPRINT MODEM STATUS? NO, SKIP PRINTING. 
eons 034732 004737 021614 JSR PC ,MSSRPT sREPORT THE MODEM STATUS. 
3? 
os ; If there are more data patterns to send, loop back to send again. 
g= 
88sc 034736 005304 14$; DEC R4 sCOUNT THIS DATA PATTERN. 
8839 Ose1sG 001403 BEQ 16$ sLAST DATA PAT SENT? YES, PROMPT FOR EXIT. 
8840 034742 100373 BPL 12$ 3NO, CONTINOUS SENDING? NO, SEND NEXT PAT. 
8841 034744 005204 INC R4 sYES, RESTORE PATTERN COUNTER. ‘ 
soak 034746 000731 BR 12$ :GO TO SEND NEXT DATA PATTERN. 
3¢ 
8844 ; Prompt for exit of the test or sending of more data patterns. 
ae 3 Prompt: “EXIT THE TEST (N = LOOP BACK TO SEND MORE DATA): (L) Y 2” 
6 5+ 
8847 034750 012737 00001 002266 163: MOV #1,GMANWD ;SET DEFAULT ANSWER TO YES. 
8848 034756 GMANIL EXTMSG,GMANWD,1, YES 

024756 104443 TRAP C$GMAN 

034760 000404 BR 10003$ 

034762 002266 -WORD GMANWD 

034764 000130 -WORD TSCODE 

034766 013225 -WORD EXTMSG 

034770 000001 -WORD 1 

034772 . 100033: 

8849 034772 023727 002266 000001 CMP GMANWD , #1 sCHECK OPERATOR RESPONSE. 

8850 035000 001270 BNE 10$ sEXIT RESPONSE? NO, LOOP TO SEND MORE DATA. 
8851 3NO, EXIT ROUTINE. 

8852 3¢ 

8853 ; All done jave been told to exit. 

8854 3 Clear vice DTR and RTS signals. 

8855 ; Disable interrupts. 

8856 F Clear the interrupt vectors. 

pone H Report any necessary error summaries. 

8858 :- 

8859 035002 005000 CLR RO sINDICATE TO CLEAR ALL LNCTRL BITS. 
8860 035004 012705 000377 MOV @MAPLNS,RS sINDICATE TO CLEAR FOR ALL LINES. 
8861 035010 004737 027234 JSR PC ,WTWLNC ;CLEAR ALL THE RTS AND DTR SIGNALS. 
8862 

8863 035014 106427 000240 MTPS @PRIOS sDISABLE DEVICE INTERRUPTS. 

8864 035020 CLRVEC TXVECA sRETURN TX INT VECTOR TO UNUSED POOL. 

035020 013700 002172 MOV TXVECA,RO 

035024 104436 TRAP CsCVEC 
8865 035026 CLRVEC RXVECA sRETURN RX INT VECTOR TO UNUSED POOL. 

035026 013700 002170 MOV RXVECA,RO 
eed 035032 104436 TRAP CSsCVEC 
8867 035034 012737 021320 005320 MOV #8912. ,ERRNBR sSELECT NUMBER 8912 FOR THE NEXT ERROR REPORT. 
8868 035042 004737 024220 JSR PC ,REPSMR sREPORT ERROR SUMMARIES IF CALLED FOR. 
8869 035046 106427 000240 60$: MTPS oPRIOS sDISABLE DEVICE INTERRUPTS. 
8870 035052 005037 002222 CLR CTRLCF sINDICATE THAT WE ARE NOT WITHIN A TEST. 
8871 035056 ENDTST 

035056 L10031: 


—— 
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035056 104401 


—— 





TRAP 


CSETST 






SEQ 0224 
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—— 


8873 
8874 
8875 
8876 


035060 
035060 


035060 


035066 
035074 
035076 
035076 
035100 
035102 
035102 
035104 
035104 
035106 
035106 
035110 


035112 
035120 
035126 
035134 
035142 


035146 
035152 
035154 


035160 
035160 
035164 
035170 


000006 
012737 


123727 
001402 


104432 
000204 


104450 
103402 


104432 
000174 


012737 
012737 
012737 
012737 
005037 


004737 
103402 
000137 


012746 
012746 
012746 


- KBECHO - 


000006 


002176 


177777 
000001 
022271 
013055 
002502 


017234 
035300 


013055 
006235 
000002 


002224 


000005 


002222 
005316 
005320 
005322 





-SBTTL HARDWARE TEST - KBECHO - 

PSM IITiti i iti titi ii titi tit titi it tit Tt TTT TTT TT TT TTT TTT TTT TTT TTT TT TT TTT TTT 

3% - Keyboard Echo Test - 

3* This is a test which puts UARTS for the active lines into remote 

3% loopback mode. The active line UARTS are set up with a baudrate 

3% which is specified by the operator. The test executes indefinitely 

3% until terminated by the operator. 

3% 

33 This test can be used for looping back terminal keyboard input onto 

3% a terminal CRT or it can be used as a oy loopback method for 

34 feabie communications links to the DUT from the other end of the 

3% channe DTR and RTS are set on the selected lines during this 

3% test to ellow the testing of modem links. 

7 e 

$-- SHRKREEAEREAEEEEEEEAEAERERERAEEAEASAEASASAAREAEAERERARAAAEAAREARARAEERAE EES 
BGNTST 


T6:: 
TNUM == TNUM + 1 ;INCREMENT THE ASSEMBLY TIME TEST COUNTER. 
MOV @TNUM, TSTNUM ;SET UP THE TEST NUMBER. (94) 


3+ 
; Verify that the test should be performed. Must have the following: 


H Keyboard Echo loopback selected. 
: Manual intervention allowed. 
CMPB = =LOPBCK,#@5 sTEST THE LOOPBACK TYPE INDICATOR. 
BEQ 2s 3KBD ECHO LPBCK SELECTED? YES, CONTINUE TEST. 
EXIT TST 3NO, ABORT THE TEST. 
TRAP CSEXIT 
«WORD L10032-. 
2s: MANUAL ;CHECK FOR MANUAL INTERVENTION ALLOWED. 
TRAP C$MANI 
BCOMPLETE 4$ sMANUAL INTERVENTION ALLOWED? = ler +4 
EXIT TST ;NO, ABORT THE TEST. 
TRAP CSEXIT 
-WORD L10032-. 
4$: MOV #-1,CTRLCF sINDICATE THAT WE ARE IN A TEST. 
MOV #1,ERRTYP 3SET ERROR TYPE AS FATAL IN ERROR TABLE. 


MOV #9401.,ERRNBR ;SET THE FIRST ERROR NUMBER IN ERROR TABLE. 
MOV EM9401,ERRMSG ;SET ERROR MESSAGE ADDRESS IN ERRTBL. 
CLR ERSMRF sINITIALIZE THE “REPORT ERROR SUMMARY” FLAGS. 


3¢ 
; Reset the DUT to a known state, remove the status codes from the fifo. 
; Clear TX and RX interrupt enable bits in the CSR. 

; This subroutine reports error >>>>> 9401 <<<<<, 

‘. 


JSR PC ,CLNRST sRESET THE DHV11-M, REPORT ANY ERRORS FOUND. 
BCS . +6 sSKIP EXIT OF TEST IF NO FATAL ERROR FOUND. 
JMP 60$ sRESET FAILURE, ABORT THIS TEST. 


3¢ 
; Print the test name. 


PRINTF #@€F8901,¢#EM9401 
MOV 9EM9401, 
MOV @EF 8901, 
MOV #2,-CSP) 


SEQ 0225 


-(SP) 
-(SP) 
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035174 
035176 
035200 


8929 035204 
8930 035210 
8931 035212 
8932 035214 
8933 035216 
8934 035220 
8935 035222 
8936 035224 
8937 035226 
8938 035232 


8940 035236 
8941 035242 


8943 035246 
8944 035252 


8950 035256 
8951 035264 
035264 
035266 
035270 
035272 
035274 
035276 
035300 


8956 035300 
8957 035304 
035304 
035304 


-— 


010600 
104417 
062706 


005037 


104401 


- KBECHO - 


000006 


020302 


000377 
000030 


002174 
027264 


011304 
027234 


000001 002266 


002222 


a 


Set up the DUT LPR te 
Get the proper DUT LNCT 


JSR PC ,GETBOR 
R1,RO0 


MOV ’ 

ASL R1 

ASL R1 

ASL R1 

ASL R1 

8Is R1,RO 
SWAB RO 

BIC #377 ,RO 
BIS #30,R0 


MOV ACTLNS ,RS 
JSR PC ,WTWLPR 


MOV #11304 ,RO 
JSR PC ,WTWLNC 


MOV SP RC 
TRAP C$PNTF 
ADD 06 ,SP 


Set up the DUT UARTS with the proper line parameters. 
Get the desired baudrate from the operator. 
Calculate proper DUT LPR contents. 

sters. 

RL register contents. 

Set up the DUT LNCTRL registers. 


sGET DUPLICATE COPIES OF BAUDRATE CODE 
s IN THE UPPER BYTE OF THE NEW 
; LPR CONTENTS. 


sSET UP 1 STOP BIT, NO PARITY, 8 BITS/CHAR 
s IN THE LPR CONTENTS. 


sGET THE ACTIVE LINES BIT MAP. 


sSET UP THE DUT LPR REGISTERS FOR ACTIVE LINES. 


sSET UP DTR, RTS, REMOTE LPBK, AND RX ENABLE. 
sSET UP THE DUT LNCTRL REGS FOR ACTIVE LINES. 


; . 
; Wait for the operator to terminate the test. 
; Prompt “TYPE <CR> TO TERMINATE THE TEST: ” 


MOV #1 ,GMANWD 


sSET UP DEFAULT ANSWER TO YES. 


GMANIL TERMSG,GMANWO,1, YES 


3¢ 


TRAP C$GMAN 


BR 10000$ 
-WORD GMANWD 
-WORD TSCODE 
-WORD TERMSG 
-WORD 1 


10000$: 


; We got a response from the operator, so terminate the test. 


: 
60$: CLR CTRLCF 
ENDTST 





sINDICATE THAT WE ARE NOT WITHIN A TEST. 


L10032: 
TRAP CSETST 


















SEQ 0226 
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SEQ 0227 
HARDWARE TEST - SINGLC - 
8959 -SBTTL HARDWARE TEST - SINGLC - 
8960 BB Macatee nee thet LT LTT TT TT TTT TTT TTT tT TTT tt 
8961 3* - Single Character Mode Test - 
8962 3% This test verifies that the Device Under Test (DUT) will perform 
8963 3% transmission and reception correctly using the single cheracter 
8964 34 mode interrupts. The test is performed at 3 baudrates (slowest, 
8965 3% middle, and highest) at all combinations of @ of stop bits, ¢@ of 
8966 34 bits per character, and types of parity using short date patterns. 
8967 7* A hi speed test is also performed at the highest baudrate with all 
8968 3* combinations of line parameters using longer data petterns. 
8969 3% This test is performed in internal loopback regardless of the type 
pads 3* of loopback which is selected for the DUT in the hardware P-table. 
3% 
8972  Balallaccheathenteeecaedeeteeeeee enh ttt TTT TTT TTT TT TTT TTT TT tT! 
8973 
8974 035306 BGNTST 
035306 T7:: 
8975 000007 TNUM == TNUM ¢« 1 sINCREMENT THE ASSEMBLY TIME TEST COUNTER. 
8976 035306 012737 000007 002224 MOV @TNUM, TSTNUM sSET UP THE TEST NUMBER. (90) 
8977 035314 012737 177777 002222 MOV @-1, CTRLCF sINDICATE THAT WE ARE IN A TEST. 
8978 035322 012737 000001 005316 MOV #1,ERRTYP sSET ERROR TYPE AS FATAL IN ERROR TABLE. 
8979 035330 012737 021451 005320 MOV $9001. ,ERRNBR sSET THE FIRST ERROR NUMBER IN ERROR TABLE. 
8980 025336 012737 011245 005322 MOV @EM9001,ERRMSG ;SET ERROR MESSAGE ADDRESS IN ERRTBL. 
rook 035344 005037 002502 CLR ERSMRF sINITIALIZE THE “REPORT ERROR SUMMARY” FLAGS. 
3¢ 
8983 ; Reset the DUT to a known state, remove the status codes from the fifo. 
8984 ; Clear TX and RY interrupt enable bits in the CSR. 
te ; This subroutine reports error >>>>> 9001 <<<<<. 
so 
8987 035350 004737 017234 JSR PC,.CLNRST sRESET THE DHV11-M, REPORT ANY ERRORS FOUND. 
8988 035354 103402 BCS .¢ sSKIP EXIT OF TEST IF NO FATAL ERROR FOUND. 
8989 035356 000137 036010 JMP 60$ sEXIT THE TEST, FATAL ERROR WAS FOUND. 
coor 035362 012737 021452 005320 MOV #9002. ,ERRNBR ;SET THE ERROR NUMBER. 
8992 3+ 
bee ; Set up for Transmit and Receive interrupts. 
8 :- 
8995 035370 106427 000240 MTPS #PRIOS sDISABLE DEVICE INTERRUPTS. 
8996 035374 SETVEC TXVECA,@TXSCHR,@PRIOS ;SELECT SINGLE CHAR TX INT SERVICE RIN. 
035374 012746 000240 MOV @PRIOS,-(SP) 
i 035400 012746 0627726 MOV @TXSCHR, -( SP) 
035404 013746 002172 MOV TXVECA, -(SP) 
035410 012746 000003 MOV 63,-(SP) 
035414 104437 TRAP CsSvVEC 
035416 062706 000010 ADD #10,SP 
8997 035422 SETVEC RXVECA,@RXCHRS,@PRIOS ;SELECT RX INT SERVICE RTN. 
035422 012746 000240 MOY @PRIOS,-(SP) 
035426 012746 027364 MOV ORXCHRS , -C SP) 
035432 013746 002170 MOV RXVECA, -(SP) 
035436 012746 000003 MOV @3,-(SP) 
035442 104437 + TRAP C$SVEC 
035444 062706 000010 ADD #10, SP 
pee 035450 106427 000000 MTPS #PRIOO sALLOW INTERRUPTS. 
3? 
9000 ; Clear the error counter table. 
— ; This table will accumulate error count totals for each line during this test. 
| oad 


—— 























035562 
035562 
035566 
035570 
035574 
035576 
035602 
035604 
035610 
035612 
035616 


035624 


035630 


035632 
035640 
035644 


012700 
004737 


005037 


004737 
004737 
004737 
103055 
010001 
004737 
012702 
012703 
012704 
004737 
004737 
004737 
004737 
004737 
012737 


012727 


012737 


004737 


000717 


012737 
012702 
005003 
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003304 
017256 


021072 
021452 005320 


000001 
002116 
177772 
177756 


023462 
021461 005320 


026450 


021465 005320 
003604 












SEQ 0228 





































MOV @ERCNTB,RO 
JSR PC ,CLR16W sCLEAR THE RX ERROR COUNTERS TABLE. 
3¢ 


; Transmit and receive short data pattern in all combinations of 3 baudrates, 
; all @s of stop bits, all @s of bits per character, and all types of perity. 
3 Set up line control perameters for single char mode DUT operation. 

"fied 


CLR GPRSOB sCLEAR THE GPR SAVE AREA Ri STORAGE TO INDICATE 
; THAT THIS IS THE FIRST TIME IN GETLP1. 

2s: JSR PC , SWAPO sSWAP GPRS WITH GPR SAVE AREA ZERO FOR GETLP1. 
JSR PC ,GETLP1 sGET NEXT SET OF LPR CONTENTS, OR CARRY CLEAR. 
JSR PC ,SWAPO sSWAP BACK GPRS AND GPR SAVE AREA ZERO. 
BCC as sEXIT LOOP IF ALL COMBINATIONS OF LPRS DONE. 
MOV RO,R1 sPASS THE LPR CONTENTS TO GETTIM AND VANSUP. 
JSR PC ,GETTIM sGET TIME-OUT BASED ON MINIMUM BAUDRATE IN USE. 
MOV @SDPBAS,R2 sSET UP POINTER TO START OF SHORT DATA PATTERN. 
MOV @SDPEND-SDPBAS,R3 ;SET UP THE DATA PATTRN LENGTH. 
MOV #1,R4 sSPECIFY TO SEND 1 DATA PATTERN TO EACH LINE. 
JSR PC, VANSUP sSET UP “VANILLA FLAVORED” TX/RX. 
JSR PC ,CHRMSK ;sGET THE BIT MASK OF UNUSED TX/RX BITS. 
JSR PC ,PUFIFO sPURGE THE DUT RECEIVE CHARACTER FIFO. 
JSR PC ,PURRXB sPURGE THE RX CHAR BUFFER IN MEMORY. 
JSR PC, INICHR sSEND INITIAL CHARS TO ALL ACTIVE LINES. 


MOV #9002.,ERRNBR ;SET THE ERROR NUMBER TO 9002. 
3° 
; The following routine reports the error with numbers 9002 thru 9008. 


DELAY 1 sPause, allow transmition $$$ 
MOV #1,(PC)+ 
-WORD O 
MOV LS$OLY,(PC)+ 
-WORD 0O 
DEC -6(PC) 
BNE .-4 
DEC -22(¢PC) 
BNE .-20 
JSR PC .ROCHRS ;READ AND VERIFY THE RX CHARACTERS. 


MOV #9009.,ERRNBR  ;SET THE ERROR NUMBER TO 9009. 

7+ 

; The following routine reports the error with numbers 9009 thru 9012. 
JSR PC, TXRREP sREPORT FINAL ERRORS FROM RX/RX. 


3¢ 
; Loop to select the next baudrate and line parameters. 


7 
BR 2s 
;* 
; Transmit and receive long data patterns at maximum »audrate and all 
; combinations of all numbers of stop bits, all numbers of bits per character, 
; and all types of parity. 
ge 


3° 
; Initialize the long data pattern and parameters for the SCHTST call. 
ge 

MOV #9013. ,ERRNBR ;SET THE ERROR NUMBER TO 9013. 


4$: MOV SBUFBAS,R2 sINITIALIZE THE LONG DATA 
CLR R3 ; PATTERN IN THE GENERAL 













HAROWARE TEST 
9052 035646 
905 










































9084 035770 







9088 035774 
9089 035776 
9090 036004 











110322 
005203 
020227 
103773 


005037 


004737 
004737 
004737 
103036 
010001 
004737 
012702 
012703 
012704 
004737 
004737 
004737 
004737 
004737 
012737 


004737 
012737 


004737 


000733 
012737 
004737 


106427 


013700 
104436 


013700 


104436 
005037 


104401 
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004204 


002466 


025372 
020664 
025372 


021014 


021465 


023462 
021473 


026450 


021477 
024220 


000240 
002172 


002170 
002222 


63: 


005320 


005320 


005320 10%: 


DATA BUFFER TO A 256 


MOVB = R3,C(R?)+ 
R3 BYTE PATTERN COUNTING 


CMP R2, @BUFMID FROM ZERO TO 255. 
BLO 6$ 
3¢ 
; Initialize for, and get the LPR contents. 
ee 
CLR GPRSOB sCLEAR THE GPR SAVE AREA R1 STORAGE TO INDICATE 
s_ THAT THIS IS THE FIRST TIME IN GETLP2. 
JSR PC, SWAPO sSWAP GPRS WITH GPR SAVE AREA ZERO FOR GETLP1. 
JSR PC ,GETLP2 sGET NEXT SET OF LPR CONTENTS, OR CARRY CLEAR. 
JSR PC, SWAPO sSWAP BACK GPRS AND GPR SAVE AREA ZERO. 
BCC 10$ °- sEXIT LOOP IF ALL COMBINATIONS OF LPRS DONE. 
MOV RO,R1 sPASS THE LPR CONTENTS TO GETTIM AND VANSUP. 
JSR PC ,GETTIM sGET TIME-OUT BASED ON MINIMUM BAUDRATE IN USE. 
MOV @BUF BAS ,R2 sSET UP POINTER TO START OF SHORT DATA PATTERN. 
MOV @BUFMID-BUFBAS,R3 ;SET UP THE DATA PATTRN LENGTH. 
MOV #1,R4 sSPECIFY TO SEND 1 DATA PATTERN TO EACH LINE. 
JSR PC , VANSUP sSET UP “VANILLA FLAVORED” TX/RX. 
JSR PC ,CHRMSK sGET THE BIT MASK OF UNUSED TX/RX BITS. 
JSR PC ,PUFIFO sPURGE THE DUT RECEIVE CHARACTER FIFO. 
JSR PC ,PURRXB sPURGE THE RX CHAR BUFFER IN MEMORY. 
JSR PC, INICHR sSEND INITIAL CHARS TO ALL ACTIVE LINES. 


MOV #9013.,ERRNBR ;SET THE ERROR NUMBER TO 9013. 
3¢ 
; The following routine reports the error with numbers 9013 thru 9018. 


§° 
JSR PC ,ROCHRS sREAD AND VERIFY THE RX CHARACTERS. 
MOV #9019.,ERRNBR ;SET THE ERROR REPORT NUMBER TO 9019. 


3° 
; The following routine reports the error with numbers 9019 thru 9022. 
Had 

JSR PC, TXRREP sREPORT FINAL ERRORS FROM RX/RX. 


3¢ 
; Loop to select the next bsudrate and line parameters. 
2s 


BR 8$ 
MOV #9023.,ERRNBR ;SELECT NUMBER 9023 FOR THE NEXT ERROR REPORT. 
JSR PC ,REPSMR sREPORT ERROR SUMMARIES IF CALLED FOR. 


3¢ 
; All done, have completed the test. 


Tad 
60$: 





Disable interrupts. 
Clear the interrupt vectors. 


MTPS @PRIOS sDISABLE DEVICE INTERRUPTS. 
CLRVEC TXVECA sRETURN TX INT VECTOR TO UNUSED POOL. 
MOV TXVECA ,RO 
TRAP CsCvEC 
CLRVEC RXVECA sRETURN RX INT VECTOR TO UNUSED POOL. 
MOV RXVECA,RO 
TRAP Cscvec 
CLR CTRLCF sINDICATE THAT WE ARE NOT WITHIN A TEST. 
ENOTST 
L10033: 


TRAP CSETST 
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SEQ 0230 


9104 -SBTTL HARDWARE TEST - DMA - 
9105 5¢¢ SHRSEEEEEEEE EE OE ES 6404 6006 0000000000 00 0600s 4006 O44 OOO Ohhh hhh dees 
9106 3% - DMA Mode Test - 
9107 3% This test verifies that the Device Under Test (DUT) will perform 
9108 3% transmission and reception correctly using the DMA mode transmission. 
9109 3% The test is performed at all baudrates (except 50 baud), 8 bits per 
9110 3% character, 1 stop bit, and with parity checking (both odd and even). 
9111 74 A high speed test is also performed at the highest 3 baudrates at 
9112 3% both 5 and 8 bits per character, 1 stop bit, and no perity checking. 
9113 3% This test is performed with the type of loopback which was specified 
ste 3% in the DUT hardware P-table on all active lines. 
11 ‘ 3% 
9116  Hdalllachchadachedateehnaedachdaececeheneee nena LLL LL LLL LLL TTT TTT TTT TTT TT TTT TTT TT TTT TTT tT 
9117 036036 BGNTST 
036036 T8:: 
9118 000010 TNUM == TNUM + 1 sINCREMENT THE ASSEMBLY TIME TEST COUNTER. 
9119 036036 012737 000010 002224 MOV @TNUM, TSTNUM sSET UP THE TEST NUMBER. (91) 
9120 036044 012737 177777 002222 MOV @-1,CTRLCF sINDICATE THAT WE ARE IN A TEST. 
9121 036052 012737 000001 005316 MOV #1,ERRTYP sSET ERROR TYPE AS FATAL IN ERROR TABLE. 
9122 036060 012737 021615 005320 MOV #9101. ,ERRNBR sSET THE FIRST ERROR NUMBER IN ERROR TABLE. 
9123 036066 012737 012443 005322 MOV #€M9101,ERRMSG ;SET ERROR MESSAGE ADDRESS IN ERRTBL. 
oes 036074 005037 002502 CLR ERSMRF sINITIALIZE THE “REPORT ERROR SUMMARY” FLAGS. 
91 3+ 
9126 ; Reset the DUT to a known state, remove the status codes from the fifo. 
9127 ; Clear TX and RX interrupt enable bits in the CSR. 
9128 ; This subroutine reports error >>>>> 9101 <<<<<, 
9129 3- 
9130 036100 004737 017234 JSR PC,CLNRST sRESET THE DHVi1-M, REPORT ANY ERRORS FOUND. 
9131 036104 103402 BCS 2s sSKIP AROUND TEST EXIT IF NO FATAL ERROR FOUND. 
er | 036106 000137 036634 JMP 60$ sRESET FAILURE, ABORT THIS TEST. 
1 i+ 
aa ; Set up for Transmit interrupts. 
913 8° 
9136 036112 106427 000240 2s: MTPS @PRIOS sDISABLE DEVICE INTERRUPTS. 
9137 036116 SETVEC TXVECA,@TXDMA, @PRIOS sSELECT DMA TX INT SERVICE RTN. 
036116 012746 000240 MOV #PRIOS,-(SP) 
036122 012746 027574 MOV @TXDMA,-(SP) 
036126 013746 002172 MOV TXVECA, -(SP) 
036132 012746 000003 MOV 03,-(SP) 
036136 104437 TRAP Cs$SVEC 
036140 062706 000010 ADD #10,SP 
9138 036144 SETVEC RXVECA,@RXCHRS,@PRIOS ;SELECT RX INT SERVICE RTN. 
036144 012746 000240 MOV @PRIOS,-(SP) 
036150 012746 027364 MOV ORXCHRS, -( SP) 
036154 013746 002170 MOV RXVECA,-(SP) 
036160 012746 000003 MOV @3,-(SP) 
036164 104437 TRAP CSSVEC 
036166 062706 000010 ADD #10,SP 
ped 036172 106427 000000 MTPS #PRIOO sALLOW INTERRUPTS. 
14 3+ 
9141 ; Transmit and receive short dete pattern at all baudrates, 
9142 3 with 8 bits per character, 1 stop bit, and both types of parity. 
see + Both line groups (LGPRS) TX and RX with the same parameters. 
2° 
9145 036176 012700 003304 MOV *ERCNTB,RO 
9146 036202 004737 017256 JSR PC ,CLRi6W sCLEAR THE RX ERROR COUNTERS TABLE. 
9147 036206 012701 010470 MOV #10470,R1 ;SET UP LPR CONTENTS FOR TX/RX AT 75 BAUD. 


-— 
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SEQ 0231 
HARDWARE TEST - DMA - 
9148 036212 004737 021014 4$: JSR PC ,GETTIM sGET TIME-OUT BASED ON MINIMUM BAUDRATE IN USE. 
9149 036216 012702 005156 MOV @SDP2B ,R2 ;SET UP THE START ADR OF THE DATA PATTERN. 
9150 036222 012703 000020 MOV @SDP2E-SDP2B,R3 ;SET UP THE DATA PATTERN LENGTH 
9151 036226 012704 000001 MOV #1,R4 sSPECIFY TO SEND 1 DATA PATTERN. TO EACH LINE. 
9152 036232 004737 026762 JSR PC, VANSUP sSET UP “VANILLA FLAVORED” TX/RX. 
9153 036236 012737 177400 002226 MOV #177400, IBM sFORM BIT MAP OF UNUSED TX/RX BITS. 
oes 036244 012737 021616 005320 MOV #9102. ,ERRNBR ;SET THE ERROR REPORT NUMBER TO 9102. 
3¢ 
erat ; This routine reports errors with numbers >>>>> 9102 thru 9104 <<<<<, 
‘7 
9158 036252 004737 023234 JSR PC ,PUFIFR sPURGE THE DUT RECEIVE CHARACTER FIFO. 
744 036256 103166 BCC 60$ sABORT THIS TEST IF FIFO WOULD NOT PURGE. 
9161 036260 004737 023426 JSR PC ,PURRXB sPURGE THE RX CHAR BUFFER IN MEMORY. 
9162 036264 004737 021204 JSR PC, INIDMA ;SEND THE FIRST BATCH OF DATA PATTERNS. 
roe 026270 012737 021621 005320 MOV #9105. ,ERRNBR sSET ERROR NUMBER TO 9105. 
6 3¢ 
Pr ; This routine reports errors with numbers >>>>> 9105 thru 9110 <<<<<, 
"id 
9167 036276 004737 023462 JSR PC ,ROCHRS sREAD AND VERIFY THE RX CHARACTERS. 
rs 036302 012737 021627 005320 MOV #9111. ,ERRNBR ;SET ERROR NUMBER TO 9111. 
3¢ 
at ; This routine reports errors with numbers >>>>> 9111 thru 9114 <<<<<, 
171 ‘= 
fe | 036310 004737 026450 JSR PC, TXRREY sREPORT FINAL ERRORS FROM RX/RX. 
1 
9174 ie the perity type bit specifier in the TX/RX setup parameters. 
i ct the next baudrate and perform the test again if not done. 
9177 036314 010100 MOV R1,RO sCOMPLEMENT THE PARITY TYPE 
9178 036316 042701 000100 BIC #100,R1 ; BIT IN THE TX/RX LPR SETUP 
9179 036322 005100 COM RO ; PARAMETER LEAVING THE 
9180 036324 042700 177677 BIC #177677,R0 ; OTHER LPR PARAMETER 
9181 036330 050001 BIS RO,R1 ; BITS UNCHANGED. 
9182 036332 062701 010400 ADD #10400 ,R1 sSELECT THE NEXT BAUDRATE. 
ot 036336 103325 Bcc 4$ ;LOOP TO TX/RX AGAIN IF NOT PAST LAST BAUDRATE. 
1 3¢ 
9185 ; Perform wide open DMA test. 
9186 ; Transmit and receive 512 byte data patterns at all combinations of 9.6K, 
9187 ; 19.2K, and 38.4K buadrates and 5 end 8 bits per character. Use 1 stop bit 
9188 ; and no parity generation or detection. 
9189 8° 
9190 3¢ 
he ; Initialize the 512 byte pattern and the various date pattern pointers. 
hd 
9193 036340 005001 CLR R1 ;CLEAR THE DATA BYTE COUNTER. 
9194 036342 012702 003604 MOV @BUFBAS ,R2 3sGET THE BASE OF THE DATA PATTERN BUFFER. 
9195 036346 110122 6$: MOVB R1,CR2)+ sWRITE A BYTE OF THE DATA PATTERN. 
9196 036350 105201 INCB Ri ;GET THE NEXT BYTE FOR THE DATA PATTERN. 
9197 036352 001375 BNE 6$ sLOOP UNTIL FIRST 1/2 OF PATTERN IS DONE. 
9198 036354 105301 8$: OECB Ri 3;GET THE NEXT BYTE FOR THE DATA PATTERN. 
9199 036356 110122 MOVB R1,C(R2)+ sWRITE A BYTE OF THE DATA PATTERN. 
9200 036360 105701 TSTB Ri sCHECK FOR DONE WRITING DATA PATTERN. 
9201 036362 001374 BNE 8$ 3;L00P IF DATA PATTERN IS NOT DONE. 
9202 036364 110122 10$: MOVB R1,CR2)+ sWRITE A BYTE OF THE 32 BYTE OVERFLOW REGION. 
9203 036366 005201 INC R1 sCOUNT THIS BYTE. 
9204 036370 020127 000040 CMP R1,¢32. sTEST FOR 32 BYTES WRITTEN. 





—— 
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9205 036374 
9206 


SEQ 0232 















001373 





BNE 10$ sLOOP UNTIL 32 BYTES ARE WRITTEN. 


oad : " Prepare to loop on the 3 different baudrates (9.6K, 19. 2k, and 38.4K). 
| id 










4 036376 912705 005074 MOV @OLPRTB,.RS sGET THE BASE ADR OF THE DMA BAUDRATE TABLE. 
3¢ 
9211 ; Specify the proper beudrete. 
9212 ; Specify 8 bits per cheracter. 
aes : Perform DMA trensmission and reception of 512 byte date pattern. 
g= 
9215 + 
9216 3; The 7 cea routine reports the error with numbers 914 thru 921. 
oH $ LPR CHANGE bit error flags may be set by this subroutine. 
3° 













9219 036402 012501 12$: MOV CRS)+,R1 ;SET UP LPR PARAM AT NEXT BAUD, 8 BITS/CHAR. 
9220 036404 004737 021014 JSR PC ,GETTIM sGET TIME-OUT BASED ON MINIMUM BAUDRATE IN USE. 
9221 036410 012702 003604 MOV @BUF BAS ,R2 sSET UP THE START ADR OF THE DATA PATTERN. 
9222 036414 012703 001000 MOV #512. ,R3 sSET UP THE DATA PATTERN LENGTH. 
9223 036420 012704 000001 MOV #1,R4 sSPECIFY TO SEND 1 DATA PATTERN TO EACH LINE. 
9224 036424 004737 026762 JSR PC , VANSUP sSET UP “VANILLA FLAVORED” TX/RX 
9225 036430 012737 177400 002226 MOV #177400, IBM sFORM BIT MAP OF UNUSED BITS FOR "8 BITS/CHAR. 
— 036436 012737 021633 005320 MOV #9115. .,ERRNBR ;SET ERROR NUMBER TO 9115. 

3¢ 
oe : This routine reports erros with numbers »>>>> 9115 thru 9117 <<<<<, 
229 3- 






9230 036444 004737 023234 JSR PC ,PUFIFR sPURGE THE DUT RECEIVE CHARACTER FIFO. 
9231 036450 103071 BCC 60% sABORT THIS TEST IF FIFO WOULD NOT PURGE. 
oan 036452 012737 021636 005320 MOV #9118. ,ERRNBR ;SET ERROR NUMBER TO 9118. 








9234 036460 004737 023426 JSR PC ,PURRXB sPURGE THE RX CHAR BUFFER IN MEMORY. 
ee 036464 004737 021204 JSR PC,INIOMA sSEND THE FIRST BATCH OF DATA PATTERNS. 
3¢ 
oa ; This routine reports the error with numbers >>>>> 9118 thru 9123 <«<<<, 
g= 
9239 036470 004737 023462 JSR PC ,.ROCHRS sREAD AND VERIFY THE RX CHARACTERS. 
ey 036474 012737 021644 005320 MOV #9124.,ERRNBR ;SET ERROR NUMBER TO 9124. 
i 3¢ 
a | s This routine reports errors with numbers >>>>> 9124 thru 9127 <<<<<, 
92 i- e 
9244 036502 004737 026450 JSR PC, TXRREP sREPORT FINAL ERRORS FROM RX/RX. 
a 036506 012737 021650 005320 MOV #9128.,ERRNBR ;SET ERROR NUMBER TO 9128. 
3° 
9247 3; Specify 5 bite per cherecter. 
— s Perform DMA transmission and reception of 512 byte dete pettern. 
ge 
9250 036514 042701 000030 BIC #30,R1 sSET UP CHAR LENGTH PARAM TO 5 BITS/CHAR. 
9251 036520 004737 026762 JSR PC , VANSUP sSET UP “VANILLA FLAVORED” TX/RX. 
ao | 036524 012737 177740 002226 MOV #177740, IBM sFORM BIT MAP OF UNUSED BITS FOR 5S BITS/CHAR. 
3° 





9254 ; This routine reports the error with numbers >>> 9128 thru 9131 <<<. 






9256 036532 004737 023234 JSR PC ,PUFIFR sPURGE THE OUT RECEIVE CHARACTER FIFO. 
9257 036536 103036 BCC 60% sABORT THIS TEST IF FIFO WOULD NOT PURGE. 
9258 036540 012737 021654 005320 MOV €9132..,ERRNBR ;SET THE ERROR REPORT NUMBER TO 9132. 





9260 036546 004737 023426 JSR PC ,PURRXB sPURGE THE RX CHAR BUFFER IN MEMORY. 
9261 036552 004737 021204 JSR PC ,.INIDMA sSEND THE FIRST BATCH OF DATA PATTERNS. 















9262 
9263 
9264 
9265 
9266 
































036556 
036562 


036570 
036574 
036600 





004737 
012737 


004737 
020527 
103700 


106427 


013700 
104436 


013700 
104436 


012737 
004737 
106427 
005037 


104401 


023462 
021662 


026450 
005102 


000240 
002172 


002170 


021666 
024220 
000240 
002222 


- OMA - 


005320 


005320 


CVOHCDO DHV11-M FUNC TST PART 3 MACRO VOS.00 Thursday 25-Apr-85 16:37 Page 148-3 
HAROWARE TEST 





3¢ 
; This routine reports the error with numbers >>>>> 9132 thru 9137 <<<<<, 


3° 
JSR PC ,ROCHRS sREAD AND VERIFY THE RX CHARACTERS. 
MOV #9138..ERRNBR ;SET ERROR NUMBER TO 9138. 


3° 
s This routine reports the error with numbers >>>>> 9138 thi'u 9141 <<<<<, 
37 

JSR PC, TXRREP sREPORT FINAL ERRORS FROM RX/RX. 


CMP RS, @OLPRTE sCOMPARE DMA BAUDRATE TABLE PTR WITH TABLE END. 
BLO 12% sLOOP IF NOT ALL BAUDRATES DONE YET. 


3¢ 
s All done. Have either run out of active lines, or completed the test. 


60%: 


Diseble interrupts. 
Clear the interrupt vectors. 


MTPS @PRIOS sDISABLE DEVICE INTERRUPTS. 
CLRVEC TXVECA sRETURN TX INT VECTOR TO UNUSED POOL. 
MOV TXVECA ,RO 
TRAP CsCcvec 
CLRVEC RXVECA sRETURN RX INT VECTOR TO UNUSED POOL. 
MOV RXVECA ,RO 
TRAP CsCvec 
MOV #9142.,ERRNBR ;SELECT NUMBER 9142 FOR THE NEXT ERROR REPORT. 
JSR PC ,REPSMR sREPORT ERROR SUMMARIES IF CALLED FOR. 
MTPS @PRIOS sDISABLE DEVICE INTERRUPTS. 
CLR CTRLCF sINDICATE THAT WE ARE NOT WITHIN A TEST. 


L10034; 
TRAP CsETST 





SEQ 0233 


we’. 
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SEQ 0234 
HARDWARE TEST - SPLSPD - 
9288 -SBTTL HARDWARE TEST - SPLSPD - 
9289 z¢ $OOOOROEOEODEEEE O46 004606 06604066000 040006060000 0000 060060 0004666000600000688 
9290 3¢ - SPLIT SPEED TEST - 
9291 34 This test is used to verify the split speed cepebilities of the DHV11-M, 
9292 ‘38 , and the correct operation of the A & B beud rate group selection. 
9293 34 The test uses three sets of baud rates (38.4,50; 1200, 75; 2000 ,2400). 
9294 34 This test will only execute if the staggered loopback mode is selected. 
ee 34 The special staggered loopbeck BERG connector must be fitted. 
3% 
9297 i- ~SOROCOREESEEEEASEEDAEEESSAESAEEEEDEEEEEEEOEEEEEEDEDEEEEEEDEEEEDEDEEEDEEEEEDSE 
9298 036646 BGNTST 
036646 
9299 036646 123727 002176 000002 CMPB LOPBCK,¢2 sCHECK MODE SELECTED. 
9300 036654 001402 BEQ 2s sD0 NOT EXIT IF STAGGERD LOPBCK MODE SELECTED. 
9301 036656 000137 037264 JMP 60$ sEXIT THIS TEST. 
9302 036662 000011 2s: TNUM == TNUM « 1 sINCREMENT THE ASSEMBLY TIME TEST COUNTER. 
9303 036662 012737 000011 002224 MOV @TNUM, TSTNUM sSET UP THE TEST NUMBER. (92) 
9304 036670 012737 177777 002222 MOV @-1,CTRLCF sINDICATE THAT WE ARE IN A TEST. 
9305 036676 012737 000001 005316 MOV #1,ERRTYP sSET ERROR TYPE IN ERROR TABLE. 
9306 036704 012737 021761 005320 MOV #9201. ,ERRNBR sSET THE FIRST ERROR NUMBER IN ERROR TABLE. 
9307 036712 012737 012642 005322 MOV @EM9201,ERRMSG ;SET ERROR MESSAGE ADDRESS IN ERROR TABLE. 
os 036720 005037 002502 CLR ERSMRF sINITIALIZE THE “REPORT ERROR SUMMARY” FLAGS. 
9 3° 
9310 ; Reset the DUT to a known state, remove status codes from the fifo. 
9311 ; Clear TX and RX interrupt enable bits. 
9312 ; This subroutine reports error >>>>> 9201 <<<<<, 
9313 3- 
9314 036724 004737 017234 JSR PC, CLNRST sRESET THE DUT. 
na 036730 103155 Bcc 60$ sABORT THE TEST IF FATAL ERROR FOUND IN RESET. 
16 3° 
9317 ; Disable all interrupts. 
a ; Set up DMA TX and RX interrupt service routines. 
931 s- 
9320 036732 106427 000240 MTPS @PRIOS sDISABLE DEVICE INTERRUPTS. 
9321 036736 SETVEC TXVECA,@TXOMA, @PRIOS sSELECT OMA TX INT SERVICE RTN. 
036736 012746 000240 MOV @PRIOS,-(SP) 
036742 012746 027574 MOV @TXDMA, -(SP) 
036746 013746 002172 MOV TXVECA, -(SP) 
036752 012746 000003 MOV #3,-(SP) 
036756 104437 TRAP C$SVEC 
036760 062706 000010 ADD #10,SP 
9322 036764 SETVEC RXVECA, RXCHRS, OPRIOS sSELECT RX INT SERVICE RIN. 
036764 012746 000240 MOV @PRIOS,-(SP) 
036770 012746 027364 MOV @RXCHRS, -CSP) 
036774 013746 002170 MOV RXVECA, -(SP) 
037000 012746 000003 MOV @3,-(SP) 
037004 104437 TRAP CS$SVEC 
037006 062706 000010 ADD #10,SP 
_— 037012 106427 000000 MTPS @PRIOO ;ALLOW INTERRUPTS. 
4a 3¢ 
oaae ; Enable transmitters on all lines. 
9326 3° 
$327 037016 012705 000377 MOV @MAPLNS,RS sPASS ACTIVE LINE BIT MAP. 
a 037022 004737 025646 JSR PC, TXENBL sENABLE TRANSMISSIONS ON ALL LINES. 
9330 3+ 
9331 ; Clear error table prior to perfoming TX/RX test. 


—— 
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-— 


037036 
037042 
037044 
037046 
037052 
037956 
037060 
037062 
027066 


037074 
037100 
037102 


037110 
037114 


037120 
037124 


037132 
037136 


037144 
037146 
037150 
037152 
037154 
037156 
037160 
037162 
037164 


012700 
004737 


012705 


012737 


004737 
103071 
012737 


004737 
004737 


004737 
012737 


004737 
012737 


010246 
010002 
010100 
010201 
010302 
010403 
010204 
012602 
004737 


- SPLSPD - 


003304 
017256 


005102 


021014 
005156 


025052 
021762 


023234 
021765 


023426 
021204 


023462 
021773 


026450 
021777 


025052 





005320 


005320 


005320 


005320 


MOV @ERCNTB,RO sGET THE BASE ADDRESS OF THE ERROR COUNTER TBL. 


JSR PC ,CLR16W sCLEAR THE RX ERROR COUNTERS TABLE. 


3¢ 

: Perform Split speed DMA TX and RX on all selected lines at the following 
; baud retes. 

3; 38.4K, 50 ; 1200, 75 ; 2000, 2400. 

i- 

3° 

; Initielise DMA TX/RX perameters in the control block fr each of the baud 
; rates ezentioned ebove. 

; 8 bits/char,1 stop dits,odd parity. 

- 


MOV @SPLPRB,RS sGET BASE ADDRESS OF LPR PARAMETER TABLE. 

4%: MOV CRS)+,RO sGET LPR CONTENTS FOR LINGRP ITI. 
MOV CRS)+,R1 sGET LPR CONTENTS FOR LINGRP I. 
JSR PC ,.GETTIM sGET TIME-OUT BASED ON MINIMUM BAUDRATE IN USE. 
MOV @SOP 2B ,R2 sSET UP THE START ADR OF THE DATA PATTERN. 
MOV C(RS)+,R3 sGET NUMBER OF REPEAT TRANSMISSION ON LINGRPII. 
MOV CR5)+,R4 sGET NUMBER OF REPEAT TRANSMISSION ON LINGRPI. 
JSR PC ,SPLSUP sSET UP CONTROL BLOCK ETC, FOR TX/RX. 


MOV #9202.,ERRNBR ;SET THE ERROR NUMBER TO 9202. 
; This routine reports errors with numbers >>>>> 9202 thru 9204 <<<«<<, 
Be 

JSR PC .PUFIFR s;PURGE THE DUT RECEIVE CHARACTER FIFO. 

60$ sABORT THIS TEST IF FIFO WOULD NOT PURGE. 
MOV #9205..ERRNBR ;SET ERROR NUMBER TO 9205. 


JSR PC ,PURRXB sPURGE THE RX CHAR BUFFER IN MEMORY. 
JSR PC, INIDOMA sSEND THE FIRST BATCH OF DATA PATTERNS. 


3° 
; This routine reports errors with numbers >>>>> 9205 thru 9210 <<<«<<, 


ed 
JSR PC,.ROCHRS sREAD AND VERIFY THE RX CHARACTERS. 
MOV #9211.,ERRNBR ;SET THE ERROR NUMBER TO 9211. 


3? 
; This routine reports errors with numbers »>>>>> 9211 thru 9214 <<<<<, 


| ag 
JSR PC, TXRREP sREPORT FINAL ERRORS FROM RX/RX. 
MOV #9215..ERRNBR ;SET ERROR NUMBER TO 9215. 
3¢ 


; Swap peremeters to allow for both channels to be exercised. 
i. 
MOV R2,-(SP) ;PUSH THE START ADDRESS ONTO THE STACK. 


MOV RO,R2 ; 

MOV R1,RO ; 

MOV R2,R1 sSWAP THE TWO SETS OF 
MOV R3,R2 ; PARAMETERS OVER. 
MOV R4 RS ; 

MOV R2,R4 


° ; 
MOV (SP)+,R2 sRESTORE THE START ADDRESS. 
JSR PC ,SPLSUP sSET UP CONTROL BLOCK ETC, FOR TX/RX. 


3? 
; This routine reports errors with numbers >>>>> 9215 thru 9217 <<<<<, 


SEQ 0235 





HAROWARE TEST 


9390 037170 
9391 037174 
9392 037176 


9394 037204 
9395S 037210 


9399 037214 
9400 037220 


9404 037226 
9405 037232 
9406 037236 


9411 027240 
9412 037244 
037244 
037250 


9414 037252 
9415 037250 
9416 037264 
9417 037270 
037270 
037270 


—— 





004737 
103033 
012737 


004737 
004737 


004737 
012737 


004737 
020527 
103701 


106427 


013700 
104436 


012737 


004737 
005037 


104401 


- SPLSPD - 


023234 
022002 


023426 
021204 


023462 
022010 


026450 
005132 


000240 
002172 
022014 


024220 
002222 


005320 


005320 


005320 


3° 
; This routine reports errors with numbers >>>>> 9224 thru 9227 KECK, 


JSR 
BCC 
MOV 


JSR 
JSR 


3¢ ; 
; This routine reports errors with numbers >>>>> 9218 thru 9223 REECE, 


;- 
JSR 
MOV 


a 
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PC ,PUFIFR 
603 
#9218. ,ERRNBR 


PC ,PURRXB 
PC, INIOMA 


PC ,ROCHRS 
#9224. ,ERRNBR 


PC, TXRREP 
+ (irra 
$ 


Disable interrupts. 


Clear the interrupt vectors. 


MTPS 
CLRVEC 


MOV 
JSR 

CLR 
ENDTST 


OPRIOS 
TXVECA 


9228. ,ERRNBR 
PC ,REPSMR 
CTRLCF 





















SEQ 0236 


sPURGE THE DUT RECEIVE CHARACTER FIFO. 
sABORT THIS TEST IF FIFO WOULD NOT PURGE. 
sSET ERROR NUMBER TO 9218. 


sPURGE THE RX CHAR BUFFER IN MEMORY. 
sSEND THE FIRST BATCH OF DATA PATTERNS. 


sREAD AND VERIFY THE RX CHARACTERS. 
sSET ERROR NUMBER TO 9224. 


sREPORT FINAL ERRORS FROM RX/RX. 
sCHECK IF ALL PARAMETERS HAVE BEEN DONE. 
sIF NOT DONE LOOP TO SELECT THE NEXT PARAMETER. 


sDISABLE DEVICE INTERRUPTS. 

sRETURN TX INT VECTOR TO UNUSED POOL. 
MOV TXVECA RO 
TRAP CsCvECc 


sSELECT NUMBER 9228 FOR THE NEXT ERROR REPORT. 
sREPORT ERROR SUMMARIES IF CALLED FOR. 
sINDICATE THAT WE ARE NOT WITHIN A TEST. 


L10035: 
TRAP CSETST 
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SEQ 0237 
HARDWARE TEST - REPBMP - 

9419 -SBTTL HARDWARE TEST - REPBMP - 

9420 tee arene eer apes ~~rpeenes Ep oeeee ee 

9421 3@ - Report any BMP codes in the queue - 

9422 34 This is ea pseudo-test used to report any BMP codes thet were found 

— 3% in the DUT's FIFO during previous test, and logged in the BMP code 

3* queue 

9425 34 It is "unlikely that running this pseudo-test alone will produce any 

9426 3% error reports. 

9427 34 

9428 Fo 2800 O$ 4490000006000 0004046040006 0046646406006 00060604606 064046 600004 6000006006664 006688 

9429 037272 BGNTST 
037272 T10:: 

9430 000012 TNUM == TNUM « 1 sINCREMENT THE ASSEMBLY TIME TEST COUNTER. 

9431 037272 012737 000012 002224 MOV @TNUM, TSTNUM ;SET UP THE TEST NUMBER. (93) 

9432 037300 012737 177777 002222 MOV @-1,CTRLCF sINDICATE THAT WE ARE IN A TEST. 

9433 037306 013702 002512 MOV BMPCQ@P ,R2 sGET THE CONTENTS OF THE POINTER. 

9434 037312 012703 002514 MOV @BMPCQB,R3 sGET THE START ADDRESS OF THE QUEUE. 

9435 037316 020203 CMP R2,R3 sSEE IF THE POINTER HAS MOVED FROM THE BASE. 

me 037320 001411 BEQ 60$ sEXIT NO CODES IN THE QUEUE. 

3¢ 

oo ; There is at least one BMP code in the queue. Report the error. 

9439 i- 

oan sReport error BMP CODE FOUND IN TEST nn, BMP CODE:nnnnnn” 

1 

9442 037322 012701 013001 MOV €M9304,R1 sPASS THE FIRST MESSAGE TO BE REORTED. 

9443 037326 ERROF 9301,EM9301,ER9301 ; >>>>> ERROR @9301 <<<<<, 
037326 104455 TRAP CSERDF 
037330 022125 -WORD 9301 
037332 012664 -WORD EM9301 

sack 037334 015542 «WORD ER9301 

es 037336 012737 002514 002512 MOV @BMPCQB,BMPCQP ;SET POINTER BACK TO THE BEGINING OF THE QUE. 
446 

9447 037344 005037 002222 60$: CLR CTRLCF sINDICATE THAT WE ARE NOT WITHIN A TEST. 

9448 037350 ENDTST 
037350 L10036: 

037350 104401 TRAP CSETST 





—— 
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9489 
9490 


9491 
9492 


—— 


037352 
037352 
027354 


037354 
037354 
037356 
037360 
037362 


037364 
037364 
037366 
037370 
037372 


037374 
037374 
037376 
037400 
037402 
037404 


037406 
037406 
037410 
037412 
037414 
037416 


037420 
037420 
037422 
037424 
037426 
037430 


000027 


000031 
037432 
160000 
177776 


001031 
037450 
000040 
000776 


- REPBMP - 





F edatabadabalatatataialsialaisteisininlnialainisininininintnialsiainiainiaisieisininmaiiaieemuaesncrnacc OPE PEE Er) 


; 
; VOHC . HWQ 


3 
3 Ledatabatabatalaiaialalaialaiininisinininisinininisinisinisisinininisisisisisisainaineiiiuuui it titi tt tt TL TT EE ME nEN 


-SBTTL HARDWARE PARAMETER CODING SECTION 


3+ 


THE HARDWARE PARAMETER CODING SECTION CONTAINS MACROS 
THAT ARE USED BY THE SUPERVISOR TO BUILD P-TABLES. 


THE 


MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE 


MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 


WITH THE OPERATOR. 


BGNHRD 


sDEVICE CSR ADDRESS QUESTION: 
GPRMA HWPTQ1,0,0,160000,177776, YES 


sDEVICE INTERRUPT VECTOR QUESTION: 
RMA HWPTQ2,2,0,40,776, YES 


sACTIVE LINES BIT MAP QUESTION: 
GPRMD HWPTQ3,4,0,MAPLNS,0,MAPLNS, YES 


sTYPE OF LOOPBACK QUESTION: 
GPRMD HWPTQ4,6,0,377,1,5,YES 


sINTERRUPT BR LEVEL QUESTION: 
GPRMD HWPTQS,6,0,177400,0,6, YES 


; 

; 

; 

; INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. 
; 

; 

3° 


L$HARD:: 


-WORD TSCODE 
-WORD  HWPTQ1 
-WORD  T$LOLIM 
-WORD TS$HILIM 
-WORD TSCODE 
-WORD HWPTQ2 
-WORD TS$LOLIM 
-WORD  TSHILIM 
-WORD TSCODE 
-WORD HWPTQ3 
-WORD MAPLNS 
-WORD  TSLOLIM 
-WORD  TSHILIM 
-WORD TSCODE 
-WORD HWPTQ4 
-WORD 377 
-WORD  TS$LOLIM 
-WORD TS$HILIM 
-WORD TSCODE 
-WORD  HWPTQS 
-WORD 177400 
-WORD TS$LOLIM 























SEQ 0238 


WORD L10037-!. $HARD/2 


T$HILIM 
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SEQ 0239 
HARDWARE PARAMETER CODING SECTION 

9493 

9494 

9495 037432 ENDHRD 

037432 L10037: 

9496 

9503 

9504 -NLIST BEX 

9505 037432 103 123 122 HWPTQi: .ASCIZ /CSR ADDRESS: / 

9506 037450 111 116 124 HWPTQ2: .ASCIZ /INTERRUPT VECTOR ADDRESS: / 

9507 037503 101 103 124 HWPTQ3: .ASCIZ /ACTIVE LINE BIT MAP: / 

9508 037531 124 131 120 HWPTQ4: .ASCII /TYPE OF LOOPBACK (1*INTERNAL, 2*H3277, 3=*H325/<15><12> 

9509 037610 040 040 040 -ASCIZ / 4=MODEM, S=KEYBOARD ECHO): / 

oat 037670 111 116 124 HWPTQS: .ASCIZ /INTERRUPT BR LEVEL: / 

9512 -EVEN 


— 
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9515 
« 


-— 


037716 
037716 
037720 


037720 
037720 
037722 
037724 


037726 
037726 
037730 
037732 
037734 
037736 


037740 
037740 
037742 
037744 


037746 
037746 


037746 
040022 
040111 


000013 


177777 


000130 
040111 
000040 


122 
116 
122 


105 
125 
105 





120 
115 
120 





SEQ 0240 
Sh ahatal aadatatalalatalaialatateiainiateininilaiaininininisinniininisininaianaiasininaiuieamuaaanacccmuccnrc ET 


; 

: VOHC . SWQ 

> 

had alahadahatalalataiahaialaialaialainlaiaiaiaiainisiainisinininininininainiaisiainisinininininginisietinuccciccc eC TEEPE Py 


-SBTTL SOFTWARE PARAMETER CODING SECTION 


34 
s THE SOFTWARE PARAMETER CODING SECTION CONTAINS MACROS 

; THAT ARE USED BY THE SUPERVISOR TO BUILD P-TABLES. THE 
s MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE 
; INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 
; MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 
; WITH THE OPERATOR. 


BGNSFT 
-WORD L10040-L$SOFT/2 
L$SOFT:: 


sUNIT NUMBER PRINTOUT QUESTION: 
GPRML SWPTQ1,0,20, YES 


-WORD TSCODE 
-WORD SWPTQ1 
-WORD 20 
sNUMBER OF INDIVIDUAL DATA ERRORS TO REPORT ON A LINE QUESTION: 
GPRMD = SWPTQ2,2,0,177777,0,177777, YES 
-WORD TSCODE 
-WORD SWPTQ2 
«WORD 177777 


-WORD TSLOLIM 
-WORD  TSHILIM 
sREPORT NUMB OF BITS TESTED IN DMA ADDR TEST QUESTION: 
GPRML SWPTQ3,0,40,YES 


-WORD TSCODE 
-WORD SWPTQ3 
-WORD 40 
-EVEN 
ENDSFT 
-EVEN 
L10040: 


-NLIST BEX 
SWPTQ1: .ASCIZ /REPORT UNIT NUMBER AS EACH UNIT IS TESTED: / 
SWPTQ2: .ASCIZ /NUMBER OF INDIVIDUAL DATA ERRORS TO REPORT ON A LINE: / 
y Ah -ASCIZ /REPORT NUMBER OF BITS TESTED IN DMA ADDR TEST: / 
-EVE 


aie a deo ae: 
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9567 

coos ; Lehalahalahaiabatalatalaialaiaiaataisiainisininininininininininininisiaininininininininininininicinicineicini OEE PPT 

9 ; 

+ ding 3 FVTSKL6.Pi1 
3 

di | Th halalialailsinininiainisinisinisininninisinininininiainininiainininiainineninuinuicusitiiidi TTT 

9574 040172 $PATCH:: 

9575 040172 -BLKW 24 

9576 

9583 

9584 040242 LASTAD 


SEQ 0241 


040246 L$LAST:: 
9585 040246 ENOMOD 
9586 000001 -END 


-— 












Symbol table 
ACTLNS 002174 G CBOFSA 
ADOR 025366 CHCNTB 
ADR =*= 000020 G CHKEXT 
ADRPTR 017166 G CHKLOS 
ALTFLD 015722 G CHRMSK 
ASSEMB= 000010 CHRTOT 
BCOUNT 002310 G CKCHR 
BORMSG 013127 G CKFRPR 
ITLNG 002260 G CKINAC 
BITSTD 034152 CKTRAP 
BITTBL 002366 G CKTRPB 
BITO = 000001 G CLKBRL 
BITOO = 000001 G CLKCSR 
BITO1 = 000002 G CLKHRZ 
BITO2 = 000004 G CLKINT 
BITO3 = 000010 G CLKVEC 
BITO4 = 000020 G CLNRST 
BITOS = 000040 G CLRi6W 
BITO6 = 000100 G CONMAP 
BITO7 = 000200 G CSRA 
BITO8 = 000400 G CSRO = 
BITO9 = 001000 G CTRLCF 
BITi = 000002 G CsAU = 
BIT10 = 0C2000 G C$AUTO= 
BIT11 = 004000 G C$BRK = 
BIT12 = 010000 G C$BSEG= 
BIT13 = 020000 G C$BSUB= 
BIT14 = 040000 G CsCLCK= 
BIT1S = 100000 G CSCLEA= 
BIT2 = 000004 G CsCLOS= 
BITS = 000010 G CSCLPi= 
BIT4 = 000020 G CSCPBF = 
BITS = 000040 G CSCPME= 
BIT6 = 000100 G CsCVEC= 
BIT7 = 000200 G CSDCLN= 
BIT8 = 000400 G C$D0DU= 
BIT9 = 001000 G CsORPT= 
BMPCQB 002514 G CsDU = 
BMPCQE 002714 G CsEDIT= 
BMPCQ@P 002512 G CSEROF = 
BOE = 000400 G CSERHR= 
BRLEVL 002177 G CSERRO= 
BRTBLB 002426 G CSERSF= 
BRTBLE 002466 G CSERSO= 
BUFBAS 003604 G CSESCA= 
BUFEND 004604 G CSESEG= 
BUFMID 004204 G CSESUB= 
BUF3SQT 004404 G CsETST= 
CALMSL 015774 G CsEXxIT= 
003124 G CSFREQ= 
CBDPAA 03130 G CS$FRME= 
CBDPLA 003132 G C$GETB= 
CBDPNA 003134 G C$GETW= 
CBLNCA 003126 G C$GMAN= 
CBLPBA 003140 G C$GPHR= 
CBLPRA 003124 G C$GPRI= 
CBMAPA 003136 G CsINIT= 





s 
w 
- 
> 
~ 


003444 


o 


DOHADGAAHAHAIAHAHAAGHARHAAAARHAAHD 


CSINLP= 
C$MANI= 
C$MAP = 
C$MEM = 
C$MMU = 
C$MSG = 
CSOPNR= 
C$OPNW= 
CSPNTB= 
CSPNTF= 
C$PNTS= 
C$PNTX= 
C$PUTB= 
C$PUTW= 
CsQIo = 
C$RDBU= 
CSREFG= 
CSREL = 
C$RESE= 
CSREVI= 
C$RFLA= 
C$RPT = 


EF 6203 


AHOHOHAHARHHAH Oo 


DOHOAGOAHHAHARHAGHAHH © 
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EF 7801 
EF 8901 
EF 9001 
EF 9002 
EF 9003 
EF 9004 
EF 9005 
EF 9006 
EF 9007 


011776 


MAHDAAAAIAIANAIAI AAAI AAA AAI AAAI AAHAIAAAAAAAHAAAAAAAAAARAAAAHAAARAAAAAAD 


FSHW = 
FSINIT= 
FS$JMP = 
F$MOD = 
FS$MSG = 
F$PROT= 
FSPWR = 


012107 
012203 
012227 
012307 
012366 
012443 
012477 
012566 


MODHHAHHHAHAAHAAAANHAAHAAHAHAHAAHR AHAAAARAAAAAAAAAD 


aan 
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Symbol table 


FSRPT = 
FSSEG = 
F$SOFT= 
FSSRV = 
FSSUB = 
FSSW = 


000012 
000003 





OHH AAA 


HOHOHHMHAAH 


ISMSG = 
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000041 
000040 
000041 
000041 
000041 
000041 
000041 


ADAHOHAOAIAIAIANAIAIAIAHIAIAIAH9AIAIAAIAIAAIAAANHAAAAAAAAAAAAAARHAAARAH 


L$LAST 
L$LOAD 
L$LUN 
LSMREV 
L$NAME 
L$PRIO 
L$PROT 
L$PRT 
L$REPP 
L$REV 
L$RPT 
L$SOFT 
L$SPC 
L$SPCP 
L$SPTP 
L$STA 
L$SW 
L$TEST 
L$TIML 
L$UNIT 
L10000 
L10001 
L10002 
L10003 
L10004 
L10005 
L10006 
L10007 
L10010 
L10011 
L10012 
L10013 
L10014 
L10015 
L10016 
L10020 
L10021 
L10022 
L10023 
L10024 
L10025 
L10026 
L10027 


g 
8 
a 
o 


002100 


~ 

So 

= 

o 
DOHAHAAHAVRVHAAAAHAAAAH 


002322 G 
002316 G 
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002320 
021324 
007630 
007670 
013666 
013744 
014023 
002314 
021464 
021600 
021614 
002312 
022030 
002166 


AHOHHAAAAAARHARHAHAAHAH 


8 
He 
z 
aa 


~m 
& 
MHOHOHOOHAAGAAHAAHAHAAARAAHAARAHAAAD 


s 
° 
s 
o 


v 
a 
La 
o 
w 
sen eneeuan 


SCBRTB 





DAHA AAHDA AH AIAN AH AAAI AAHAAAHAHAAHAAAHAAAAAAAHAAAAAAAAARAHRAAAAAAAAADAND o 















Symbol teble 


uv 
' 
m 
uw 
_ 
~s 
oa 
DOHAMHAHAGAAHAAGAGHAAAAAH 


- ABS. 040246 000 
000000 001 
Errors detected: 0 


Work file reads: 436 
Work file writes: 393 


##4 Assembler statistics 


SWPTQ3 040111 


4 

5 

rw 

> 

ft 

iY) 

~~ 

> 
DOADGAAHAHHAAHAAHAAHHAAAAARAAH 


x 
S 
z 
8 
o 
g 
o 


CRW, I,GBL,ABS,OVR) 
CRW,I,LCL,REL,CON) 


Size of work file: 35680 Words ( 140 Pages) 
Size of core pool: 17728 Words ( 68 Pages) 
Operating system: RSX-11M/PLUS 


Elapsed time: 00:06:29.23 
CVDHCD0. OBJ, CVDHCDO.LST/CRF/-SP=SVC40/ML ,CVDHCDO.P11 
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TXOSBL 
TXENBL 
TXENBM 
TXFRPR 
TXIEO 
TXIE1 
TXINTF 
TXPTRB 
TXRINI 
TXROFF 
TXRON 
TXRREP 
TXRXLB 
TARXLE 
TXSCHR 
TXVECA 
T$ARGC= 
T$CODE= 
TSERRN= 
TSEXCP= 
TSFLAG= 
T$GMAN= 
TSHILI= 
TS$LAST= 
TSLOLI= 
TSLSYM= 


DHOAHGHAHAAAHAHAAAAAH 


T$LTNO= 
T$NEST= 
T$NSO = 
T$NS1 = 
TSPTNU= 
TSSAVL= 
T$SEGL= 
T$SUBN= 
T$TAGL= 
T$TAGN= 
TSTEMP= 
TSTEST= 
TSTSTM= 
T$TSTS= 
TS$AU = 
T$$AUT= 
T$$CLE= 
T$$DU = 
T$$HAR= 
TS$HW = 
T$$INI= 
T$$MSG= 
T$$PRO= 
TS$RPT= 
T$$SOF = 
T#$SwW = 
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010040 
010001 








SEQ 0244 


TS$$TES= 010036 
Ti 






031142 G 
T10 037272 G 
T2 031432 G 
T3 032004 G 
T4 032370 G 
TS 034166 G 
T6 035060 G 
17 035306 G 
T8 036036 G 
19 036646 G 
UAM = 000200 G 
UBRFMT 007532 G 
UNITN 002200 G 
UNSOIV 026530 G 
UPDCHR 026664 G 
VANSUP 026762 G 
WAIBIS 027160 G 
WORD1 002240 G 
WIWLNC 027234 G 
WTWLPR 027264 G 





20 
$PATCH 040172 G 

































SYMBOL 





CVDHCDO 





SYMBOL CROSS REFERENCE 
VALUE 





ACTLNS 














002174 G 


oO OHH AAD 


HOHAHHOHOHAHHAAGHAHAHHGHAHAGA AAHAAHAAAAAAHAARAARAADA oO 


033-1396 
80-4234 
109-5988 

*136-7566 
110-6033 

@32-1371 

064-3390 

#56-2748 


33-1583 


REFERENCES 


62-3246 

81-4287 

109-6005 
#136-7569 
#110-6035 


131-7178 
126-6974 
28-1183 
128-7049 
75-3959 
*144-8253 
#144-8304 
61-3106 
91-4938 


43-2214 
144-8253 
32-1371 
32-1371 
32-1371 
32-1371 
32-1371 
32-1371 
32-1371 
32-1371 
32-1371 
32-1371 
43-2217 


136-7600 
136-7505 
113-6204 


54-2675 
54-2688 
107-5819 


#136-7571 


75-3965 
#142-7931 
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63-3339 
83-4409 
112-6123 
145-8771 


127-7013 
#136-7492 


#144 -8296 
#144-8308 
63-3339 
91-4952 


46-2328 
144 -8266 


100-5493 
106-5790 


46-2326 


90-4879 
90-4875 
117-6393 
63-3351 


103-5671 
91-4932 


136-7617 
114-6258 


136-7590 
107-5824 
#107-5827 


142-7940 


PAGE 1 


CREF 








73-3787 
83-4422 
112-6150 
146-8940 


#144-8347 
80-4234 
91-4954 


71-3663 


108-5858 


90-4877 
91-4930 
91-4933 
80-4244 
103-5680 


150-9434 
136-7591 
#136-7592 


144-8324 


03.00 


SEQ 0245 




























74-3858 74-3876 74-3893 74-3905 74-3923 
86-4599 96-5232 109-5938 109-5957 109-5976 
115-6301 121-6633 124-6854 124-6872 124-6888 
#144-8374 144-8602 144-8635 

81-4298 82-4359 88-4762 88-4778 88-4800 
115-6331 118-6475 123-6798 125-6931 132-7230 
94-5109 98-5396 103-5662 104-5715 113-6185 
144-8611 

91-4951 91-4956 94-5116 129-7113 130-7151 
104-5724 104-5733 124-6855 

150-9445 

150-9433 150-9445 

144-8339 144-8572 145-8753 147-9050 147-9067 















CVDHCDO 








SYMBOL CROSS REFERENCE 











147-9068 


BUFEND 004604 G 33-1587 
BUFMID 004204 G 33-1585 
BUF 3QT 004404 G 33-1586 
CALMSL 015774 G 57-2808 
cee 003124 G 33-1559 
#124 -6846 
CBDPAA 003130 G 33-1562 
CBDPLA 003132 G #33-1563 
CBDPNA 003134 G @33-1564 
CBLNCA 003126 G #33-1561 
CBLPBA 003140 G @33-1566 
CBLPRA 003124 G 33-1560 
CBMAPA 003136 G 33-1565 
CBOF SA 003142 G 33-1567 
CHCNTB 003444 G @33-1577 
CHKEXT 016220 G 58-2919 
CHKLOS 016320 G 59-2988 
CHRMSK 016422 G #60-3053 
CHRTOT 002500 G 33-1536 
CKCHR 016460 G #61-3102 
CKFRPR 016676 G 062-3238 
017046 G 63-3320 
CKTRAP 017154 G 064-3387 
CKTRPB 017204 G 65-3423 
CLKBRL 002274 G 33-1443 
CLKCSR 002272 G 33-1442 
CLKHRZ 002300 G 33-1445 
CLKINT 027314 G 128-7041 
CLKVEC 002276 G @33-1444 
CLNRST 017234 G 066-3462 
CLR16W 017256 G 67-3495 
CONMAP 017300 G 68-3523 
CSRA 002202 G 33-1405 
104-5723 
132-7224 
141-7821 





CSRO = 000000 G 32-1341 
CTRLCF 002222 G @33-1417 
#144-8155 
148-9285 
Ceau * 000052 28-1183 
C#AUTO = 000061 28-1183 
C#BRK = 000022 26-1183 
CéBSEG = 000004 028-1183 
C#BSUB = 000002 0286-1183 
COCLCK = 000062 028-1183 
C8CLEA = 000012 28-1183 
CéCLOS = 000035 28-1183 
COCLP1 = 000006 028-1183 
CeCPeF = 000074 028-1183 
COCPME = 000075 026-1183 


REFERENCES 


148-9194 
144-8334 


136-7516 
*74-3852 
124-6847 
118-6472 
118-6473 
#74-3899 
#83-4427 
118-6461 
#74-3900 
#74-3898 
118-6521 
51-2570 
61-3138 
61-3157 
147-9022 
#62-3254 
88-4771 
142-7960 
88-4732 
136-7508 
71-3668 
0136-7481 
#136-7480 
«57-2828 
136-7489 
136-7482 
142-7909 
142-7930 
74-3924 
56-2768 
105-5766 
132-7272 
141-7830 


138-7681 
144-8624 
149-9304 

140-7775 

137-7652 

69-4831 


136-7479 
138-7705 
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148-9221 
144-8580 


74-3853 


118-6482 
#83-4428 


#74-3910 
58-2932 


147-9071 
#83-4394 


142-7978 
136-7529 


136-7507 
#136-7483 


136-7489 
143-8035 
143-8054 
109-6006 
72-3749 

106-5792 
133-7311 
144-8470 


#141-7795 


#145-8699 
0149-9416 


128-7051 


PAGE 2 


CREF 





147-9054 


74-3873 


118-6495 
#109-5982 


#109-5983 
#83 -4426 
59-2992 


#96 -5261 
143-8086 
141-7815 


136-7617 
136-7484 


144-8179 
145-8724 


#141-7865 
#145-8870 
150-9432 


03.00 


147-9068 


83-4401 


118-6524 
118-6483 


#109-5993 
#109-5981 
112-6142 


#118-6486 
143-8111 
141-7822 


138-7687 
136-7490 


145-8709 


113-6194 
133-7357 


#141-7873 
#146 -8903 
#150-9447 


83-4402 


#124-6877 


118-6465 
#109-5992 


#118-6485 


#118-6488 


141-7833 


#136-7511 


146-8913 
148-9146 


92-4992 
114-6248 
133-7374 


#142-7897 
#146-8956 


#109-5932 


118-6459 
123-6795 


#118-6490 


141-7838 


136-7615 


147-8987 
149-9334 


100-5499 
116-6369 
136-7561 


#142-7997 
#147-8977 






109-5933 


118-6475 
132-7238 


#124-6839 


144-8267 


138-7685 


148-9130 


100-5512 
117-6395 
136-7576 


143-8023 
#147-9100 





SEQ 0246 








109-5951 


124-6876 
133-7340 


149-9314 





103-5670 
132-7214 
141-7813 




































143-8134 
#148-9120 













CvOHCDO 


SYMBOL CROSS REFERENCE 


SYMBOL 
CsCvec 


CREATED BY MACRO ON 25-APR-85 AT 16:39 


VALUE 
= 000036 





REFERENCES 


28-1183 
149-9412 
28-1183 
#28-1183 
028-1183 
28-1183 
28-1183 
28-1183 
#28-1183 
#28-1183 
96-5270 


#28-1183 
49-2442 
#28-1183 
146-8919 
$28-1183 
€28-1183 
48-2413 
92-4999 
#28-1183 
#28-1183 
28-1183 
#28-1183 
28-1183 
28-1183 
$28-1183 
$28-1183 


142-7990 


141-7866 
141-7864 


139-7742 
28-1231 
141-7862 


62 -3263 


97-5359 
89-4828 


141-7874 
150-9448 
138-7689 


75-3959 
136-7555 


136-7620 
145-8695 
144-8321 
43-2222 
52-2606 


43-2216 
50-2501 
75-3978 


43-2220 
49-2445 
145-8831 


136-7462 


€28-1183 
28-1231 


143-8125 


150-9443 


88-4766 
98-5415 


142-7999 
144 -8626 


145-8778 


146 -8899 


44-2253 
53-2649 


43-2219 
51-2542 
86-4593 


46-2332 
49-2472 


136-7465 
136-7475 


CREF 


PAGE 3 


145-8864 


88-4783 
99-5462 


143-8135 
145-8694 


145-8791 


45-2285 
54-2703 


44-2251 
52-2604 
86 -4626 


46-2345 
50-2508 


136-7468 
136-7536 


03.00 


145-8865 


90-4888 
100-5531 


144-8650 
145-8697 


145-8799 


46-2351 


45-2279 
53-2638 
86-4634 


46-2347 
51-2550 


136-7471 
138-7683 


147-9098 


91-4941 
101-5585 


145-8871 
146-8898 


145-8848 


47-2379 


45-2282 
53-2643 
89-4830 


47-2376 
51-2554 


147-9099 


91-4960 
102-5631 


146-8957 
146-8901 


146-8951 


48-2415 


46-2320 
53-2647 
136-7604 


47-2377 
51-2573 


148-9279 


94-5120 
144-8619 


147-9102 


49-2476 


47-2375 
54-2674 
139-7731 


48-2408 
54-2695 





SEQ 0247 


148-9280 


94-5134 


148-9286 


50-2514 


48-2407 
144-8615 
145-8728 


48-2411 
54-2699 
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SEQ 0248 

SYMBOL CROSS REFERENCE CREF 03.00 

SYMBOL VALUE REFERENCES 

CSRFLA = 000021 ©28-1183 

CsRPT = 000025 €28-1183 134-7400 

CSSEFG = 000046 €28-1183 

CSSPRI = 000041 €28-1183 

C$SVEC = 000037 #28-1183 136-7489 142-7916 143-8042 145-8717 145-8718 147-8996 147-8997 148-9137 
148-9138 149-9321 149-9322 

CSTOME = 000076 €28-1183 

DELAY 017354 G #69-3559 108-5854 144-8500 

DEST 034156 144-8258 144-8281 0144-8637 

DOFPTBL 002152 G @30-1277 

DIAGMC = 000000 28-1183 28-1183 

DLPRTB 005074 G @33-1638 148-9209 

DLPRTE 005102 G @33-1642 = 148-9271 

017466 G @71-3648 144-8333 144-8408 144-8413 144-8575 144-8581 

DMTSTA 002264 G @33-1435 = 70-3590» 71-3656 = 71-3660 144-8190 #144-8302 4144-8306 144-8343 4144-8345 
144-8353 144-8367 4144-8370 144-8393 144-8394 4144-8411 144-8550 144-8570 #144-8571 
oe - 

DM16B 017414 G #70-3589 71-3653 144-8356 

DODMA 017610 G #72-3712 81-4311 115-6326 132-7252 

DPENDB 003144 G @33-1571 80-4239 4118-6496 123-6779 133-7360 

DPLENB 003204 G @33-1572 80-4241 81-4306 115-6321 4118-6495 123-6781 132-7247 133-7362 

DPRSQB 004644 G @33-1592 88-4740 96-5222 

DPRSQE 005044 G @33-1609 96-5223 

DRADRT 002202 G €33-1404 

DROP 031050 139-7731 139-7735 

DUMY 034154 #144-8393 144-8411 2144-8570 144-8578 0144-8636 

EDPFMT 007764 G €41-2106 145-8831 

EDROP 031126 139-7732 139-7737 

EF.CON = 000036 G @32-1371 136-7471 

EF .NEW = 000035 G @32-1371 136-7468 

EF.PWR = 000034 G 032-1371 

EF.RES = 000037 G @32-1371 136-7465 

EF.STA = 000040 G 032-1371 136-7462 

EFOSO3 005461 G 041-2074 44-2251 45-2279 50-2501 53-2638 54-2674 

EF1601 005466 G €41-2075 45-2282 

EF1603 005512 G 041-2076 46-2347 

€F4401 005554 G 041-2077 144-8615 

EF6201 005671 G €41-2079 46-2320 

EF6202 006004 G @41-2080 46-2332 

EF6203 006102 & €41-2081 46-2345 

EF7801 006177 G €41-2082 

EF8901 006235 ~G €41-2083 145-8728 146-8919 

EF9001 006266 G €41-2084 47-2375 

EF9002 006350 G 041-2085 47-2376 

EF9003 006422 :-«G 041-2086 47-2377 

EF9004 = «OO6451 G €41-2087 48-2408 48-2411 

EF900S 006501 G 041-2088 48-2413 

EF9006 ~=-« 006532 G 041-2089 48-2407 52-2604 

EF9007 «006551 G €41-2090 49-2442 

EF9008 §=_—«006645 G 041-2091 49-2445 

EF9009 006704 G €41-2092 49-2472 

EF9010 006743 G €41-2093 50-2508 








SS 
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SEQ 0249 
SYMBOL CROSS REFERENCE CREF 03.00 
SYMBOL VALUE REFERENCES 
EF 9012 007032 G 041-2094 51-2573 
EF 9013 007146 G 041-2096 51-2542 
EF 9019 007213 G #41-2097 92-4999 
EF 9020 007232 G 041-2098 51-2554 
EF9101 007313 G 41-2099 53-2647 86-4634 
EF 9103 007316 G 41-2100 53-2643 
EF 9301 007364 G 41-2101 54 -2699 
EF 9302 007432 G 41-2102 54-2695 
EMLMSG 013156 G #41-2161 145-8778 
E€M0101 022430 G 89-4828 89-4837 
—€M0102 022514 G 89-4830 089-485 
EM0103 010072 G #41-2110 141-7862 
EMOSO9 010130 G 41-2111 46-2325 46-2331 46 -2336 46-2344 
EM1601 010134 G #41-2112 100-5527 
EM4401 010217 G #41-2113 144-8158 
EM4402 010241 G #41-2114 144-8379 
EM4403 010307 G #41-2115 144-8404 
EM4404 010404 G 041-2116 144-8433 
EM4405 010443 G 41-2117 144-8473 
E145 010537 G 41-2118 144-8493 
En540, 010613 G $41-2119 144-8511 
EM4408 010675 G #41-2120 144-8524 
EM4409 010740 G €41-2121 144-8536 
EM4410 010775 G 41-2122 144-8553 
EM4411 011024 G 41-2123 144-8587 
EMS303 011071 G #41-2124 
EM6201 011142 G 41-2125 142-7902 
EM6202 011166 G 041-2126 46-2324 46-2335 
EM6301 011175 G 41-2127 143-8028 
EM8901 011220 G $41-2128 145-8702 145-8728 
EM9001 011245 G 41-2129 147-8980 
EM9003 011301 G 41-2130 98 -5395 
EM9004 011323 G 041-2131 98 -5399 
EM9006 011341 G 41-2132 63-3350 
—M9007 011414 G 41-2133 61-3114 
EM9008 011477 G 041-2134 61-3179 91-4957 
EM9009 011560 G #41-2135 48-2411 48-2413 
—EM9010 011604 G 041-2136 48-2408 
EM9011 011630 G #41-2137 49-2449 
—M9012 011640 G 041-2138 49-2456 
EM9013 011650 G 041-2139 49-2463 
EM9014 011657 G €41-2140 50-2501 
—M9015 011753 G #41-2141 51-2544 102-5623 
EM9016 011767 G 041-2142 101-5578 
EM9017 011776 G 041-2143 94-5131 
EM9025 012107 G 41-2145 62-3257 96-5264 
EM9026 012203 G 41-2146 92-4999 
—M9027 012227 G $41-2147 61-3145 
EM9028 012307 G 041-2148 61-3165 
EM9030 012366 G 041-2149 51-2550 
EM9101 012443 G 41-2150 148-9123 
EM9102 012477 G 41-2151 97-5355 











| CvOHCDO CREATED BY MACRO ON 25-APR-85 AT 16:39 


SYMBOL CROSS REFERENCE 


SYMBOL 


FSAUTO 


| 
a 


VALUE 
012566 


af OD AMHHAHHAH 


o 


OHAHOHHAHHAHDHAAGAAH Aan 


aan 





REFERENCES 


@41-2152 
#41-2153 
041-2154 
€41-2155 
@41-2156 
041-2157 
041-2158 
@33-1588 
136-7473 
€33-1574 
145-8723 
#33-1584 
@33-1803 
#94-5130 
0144-8538 
33-1803 
#149-9307 
#33-1803 
*91-4946 
*96-5283 
#121-6635 
#142-7991 
#144-8378 
#144 -8586 
#147-9032 
#148 -9226 
#149-9360 
#33-1803 
$33-1537 
#142-7903 
043-2211 
044-2249 
€45-2276 
046-2314 
047-2373 
048-2403 
049-2439 
#50-2499 
#51-2539 
#52-2602 
#53-2635 
#54-2671 
€32-1371 
#33-1573 
#41-2162 
28-1183 
28-1183 
633-1434 
$73-3781 
$74-3845 
28-1183 
28-1183 


94-5111 
149-9307 
150-9443 
54-2676 
54-2694 
150-9442 
146-8906 


#136-7607 
50-2508 
147-9003 


#144-8555 
45-2281 


62-3239 
#91-4963 
#96 -5284 
#121-6637 
#143-8027 
#144-8403 
#145-8701 
#147-9049 
#148-9232 
#149-9368 
#142-7900 

50-2503 
#143-8029 

141-7862 

62-3258 

94-5130 

90-4874 

94-5100 

88-4780 

88-4764 

99-5457 

101-5577 

144-8538 

97-5354 

150-9443 


#61-3188 
145-8848 


28-1231 
4144-8321 
144-8430 
142-7943 
140-7761 
137-7643 


146-8919 


#88-4792 
148-9145 


*88-4764 
97-5354 
#144-8591 
#142-7902 


#62-3256 
94-5082 
#96-5293 
#121-6640 
*143-8080 
#144-8427 
#145-8816 
#147-9075 
*148-9240 
*149-9373 
*143-8026 
88-4762 
#145-8703 


96-5265 
100-5528 
91-4929 
98-5387 
91-4958 


102-5622 


#61-3190 


144-8357 - 


142-7965 
140-7775 
137-7652 


PAGE 6 


CREF 


#88 -4794 
149-9333 


*88-4780 
#98 -5387 


#143-8028 


#62 -3287 
#94-5117 
#96 -5294 
#142-7901 
*#143-8087 
#144-8472 
#145-8821 
#147-9080 
#148-9245 
#149-9392 
#144-8156 
88-4778 
*146-8907 


144-8159 


94-5118 


63-3347 


144-8372 
143 -8065 


93.00 


88-4797 


#90-4574 
#99-5457 


#144-8158 


#88-4781 
#94-5121 
#96-5323 
#142-7951 
#143-8092 
#144-8490 
#145-8867 
*147-9089 
#148-9258 
#149-9400 
#145-8700 
*88-4800 
*147-8981 


144-8555 


#63-3349 


143-8100 


#90 -488° 


#91-4929 
#100-5528 


#145-8702 


*88-4785 
#94-5129 
98-5388 
#142-7954 
#143-8106 
#144-8510 
*146-8905 
#148-9122 
*148-9266 
*#149-9414 
*146-8904 
90-4884 
*148-9124 


144-8591 


#118-6516 


#91-4962 


#91-4958 
#101-5577 


#146 -8906 


90-4367 
#94-5140 
98-5398 
#142-7966 
#143-8112 
#144-8523 
#147-8979 
#148-9154 
#148-9282 


#*147-8978 
91-4938 
*149-9308 





142-7929 


#94-5100 
#102-5622 


#147-8980 


#90 -4890 
96-5213 
#98 -5420 
#142-7972 
#143-8130 
#144-8534 
#147-8990 
*148-9163 
#149-9306 


#148-9121 
91-4952 


143-8053 


#94-5118 
#144-8159 


#148-9123 


91-4922 

#96-5263 

121-6632 
#142-7979 
#144-8157 
#144 -8552 
*#147-9026 
#148-9168 
#149-9354 


#149-9305 
99-5452 





SEQ 0250 

























CVOHCOO CREATED BY MACRO ON 25-APR-85 AT 16:39 PAGE 7 
SEQ 0251 

SYMBOL CROSS REFERENCE CREF 03.00 

SYMBOL VALUE REFERENCES 

FSBGN = 000040 28-1183 28-1205 43-2211 44-2249 45-2276 46-2314 47-2373 48-2403 49-2439 
50-2499 51-2539 S2-.5%2 53-2635 54-2671 134-7394 135-7417 136-7460 137-7643 
138-7670 138-7689 139-7723 140-7761 141-7792 141-7874 142-7891 142-7999 143-8017 
143-8135 144-8150 144-8626 144-8650 145-8684 145-8694 145-8697 145-8871 146-8888 
146-8898 146-8901 146-8957 147-8974 147-9102 148-9117 148-9286 149-9298 149-9417 
150-9429 150-9448 151-9472 152-9534 153-9585 

FSCLEA = 000007 #28-1183 138-7670 138-7705 

Fs$DU = 000016 €28-1183 139-7723 139-7742 

FSEND = 000041 #28-1183 28-1183 28-1183 28-1183 28-1183 28-1183 26-1183 28-1183 28-1183 
28-1183 28-1183 28-1183 28-1183 28-1183 28-1183 28-1183 28-1183 28-1205 
43-2222 44-2253 45-2285 46-2351 47-2379 48-2415 49-2476 50-2514 51-2581 
52-2606 53-2649 54-2703 134-7396 134-7400 136-7620 137-7652 138-7689 138-7705 
139-7739 139-7742 140-7770 140-7775 141-7792 141-7792 141-7792 141-7874 141-7874 
142-7891 142-7891 142-7891 142-7999 142-7999 143-8017 143-8017 143-8017 143-8135 
143-8135 144-8150 144-8150 144-8150 144-8626 144-8650 144-8650 145-8684 145-8684 
145-8684 145-8694 145-8697 145-8871 145-8871 146-8888 146-8888 146-8888 146-8898 
146-8901 146-8957 146-8957 147-8974 147-8974 147-8974 147-9102 147-9102 148-9117 
148-9117 148-9117 148-9286 148-9286 149-9298 149-9298 149-9298 149-9417 149-9417 
150-9429 150-9429 150-9429 150-9448 150-9448 151-9495 152-9552 153-9585 

FS$HARD = 000004 #28-1183 151-9472 151-9495 

F $HW = 000013 #28-1183 30-1277 30-1285 

FSINIT = 000006 €28-1183 136-7460 136-7620 

FSJMP = 000050 #28-1183 134-7396 134-7396 138-7689 139-7739 139-7739 140-7770 140-7770 144 -8626 
145-8694 145-8697 146-8898 146-8901 

FSMOD = 000000 28-1183 28-1205 153-9585 

FSMSG = 000011 #28-1183 43-2211 43-2222 44-2249 44-2253 45-2276 45-2285 46-2314 46-2351 
47-2373 47-2379 48-2403 48-2415 49-2439 49-2476 50-2499 50-2514 51-2539 
51-2581 52-2602 52-2606 53-2635 53-2649 54-2671 54-2703 

FSPROT = 000021 #28-1183 135-7417 135-7423 

FSPWR = 000017 28-1183 

FeRPT = 000012 $28-1183 134-7394 134-7400 

FSSEG = 000003 28-1183 

FSSOFT = 000005 28-1183 152-9534 152-9552 

FS$SRV = 000010 €28-1183 

FSSUB = 000002 #28-1183 

F$SwW = 000014 #28-1183 31-1304 31-1309 

FSTEST = 000001 #28-1183 141-7792 141-7874 142-7891 142-7999 143-8017 144-8135 144-8150 144-8650 
145-8684 145-8871 146-8888 146-8957 147-8974 147-9102 148-9117 148-9286 149-9298 
149-9417 150-9429 150-9448 ‘ 

GETBOR 020302 G #75-3953 145-8736 146-8929 

GETCHR 020430 G #76-4011 96 -5240 96-5302 

GETLP1 020512 G €77-4062 147-9013 

GETLP2 020664 G #78-4128 147-9062 

GETPRM 030530 136-7472 136-7546 136-7550 136-7557 

GETTIM 021014 G #79-4178 142-7939 143-8061 145-8747 147-9017 147-9066 148-9148 148-9220 149-9349 

GMANWO 002266 G 33-1436 75-3954  +#75-3958 75-3959 75-3960 #*75-3981 4145-8777 145-8778 +#145-8790 
145-8791 145-8792 4145-8847 145-8848 145-8849 4146-8950 146-8951 

GPRSOB 002466 G 33-1527 111-6077 4147-9010 4147-9059 

GSCNTO = 000200 #28-1183 

G$DELM = 000372 #28-1183 147-9030 

GSDISP = 000003 #28-1183 

GSEXCP = 000400 28-1183 














CvOHCDO 


SYMBOL CROSS REFERENCE 


SYMBOL 


CREATED BY MACRO ON 25-APR-85 AT 16:39 


VALUE 


000001 
000000 


Ooaanan 


AAA 


REFERENCES 


028-1183 
28-1183 
28-1183 
€28-1183 
151-9488 
#28-1183 
151-9488 
28-1183 
#28-1183 
#28-1183 
#28-1183 
28-1183 
628-1183 


#117-6393 
#80-4230 
#81-4286 
#32-1371 
€32-1371 
$28-1183 
#28-1183 
#28-1183 
#28-1183 
#151-9472 
28-1183 
#28-1183 
$28-1183 
047-2373 
#51-2581 
#28-1183 
#28-1183 
#28-1183 
$28-1183 


145-8778 


75-3959 
145-8778 
151-9484 


75-3959 
151-9490 
28-1214 
40-2042 
151-9474 


#151-9505 
#151-9506 
#151-9507 
#151-9508 
#151-9510 


‘ 
#60 - 5062 


56-2758 
105-5766 
#117-6394 
147-9025 
143-8081 


#140-7761 
#137-7643 
138-7670 
#139-7723 
#151-9495 
#136-7460 
28-1205 
#43-2211 
€47-2379 
#52-2602 
#135-7417 


0134-7394 


145-8778 
151-9492 
145-8778 
151-9492 
151-9486 
145-8791 
145-8799 


145-8791 
145-8799 
151-9486 


145-8778 
151-9492 
28-1233 
40-2054 
151-9497 


80-4243 


- 72-3748 


#106-5790 
117-6395 
147-9074 
143-8107 


#140-7775 
137-7652 

138-7689 
#139-7742 


136-7620 
28-1205 
43-2222 
48-2403 
52-2606 


#134-7400 


CREF 


PAGE 8 


145-8791 
152-9545 
145-8791 
152-9545 


151-9488 
145-8848 


152-9547 
145-8848 
151-9488 


145-8791 
152-9545 
29-1253 
55-2706 
152-9514 


96-5214 


80-4231 
#106-5791 
132-7269 


145-8815 


#138-7705 


153-9585 
044-2249 
048-2415 
#53-2635 


03.00 


145-8799 
152-9547 
145-8799 
152-9547 


151-9490 
146-8951 


146-8951 
151-9490 


145-8799 
152-9547 
32-1321 

135-7425 
152-9536 


-” 


133-7364 


86-4598 
106-5792 


148-9162 


#153-9585 
044-2253 
049-2439 
053-2649 





145-8848 
152-9549 
145-8848 
152-9549 


151-9492 
152-9545 


152-9545 
151-9492 


145-8848 
152-9549 
32-1357 

137-7624 
152-9555 


#145-8748 


92-4995 
113-6189 


148-9235 


45-2276 
049-2476 
54-2671 


146-8951 
146-8951 


152-9547 
152-9549 


152-9549 


146-8951 
33-1791 


137-7645 
153-9577 


*148-9153 


#100-5538 
114-6243 


148-9261 


045-2225 
#50 7499 
54-2703 


151-9484 
151-9484 


151-9484 


39-1990 
138-7672 


#148-9225 


. 103-5665 
*116-6368 


149-9363 


46-2314 
#50-2514 


SEQ 0252 


151-9486 
151-9486 


151-9486 


39-2010 
138-7691 


#148-9252 


104-5718 
116-6369 


149-9395 


046-2351 
#51-2539 











CVDHCOO 


SYMBOL CROSS REFERENCE 


SYMBOL 
IsSEG 
ISSETU 
ISSFT 
I$SRV 
I$sus 


IsTsST 


LSEXP1 
LSEXP4 


CREATED BY MACRO ON 25-APR-85 AT 16:39 


VALUE 


DHOHHOHOHAHHHOHHHHAAHAARAAAARHAAHAARHAAAHR AAARAAHAAgD 


REFERENCES 


#28-1183 
149-9298 
#28-1183 
152-9534 
@26-1183 
@28-1183 
149-9298 
28-1183 
#142-7999 
144-8626 
#145-8871 
147-8974 
#148 -9286 
#150-9448 
#28-1183 
#33-1420 
#33-1421 
68-3532 
#33-1409 
#32-1346 
#32-1371 
#33-1397 
145-8692 
#32-1371 
#35-1852 
#33-1407 
$32-1344 
#28-1231 
28-1231 
#140-7761 
#28-1231 
28-1231 
#28-1231 
28-1231 
28-1231 
#28-1231 
28-1231 
#28-1231 
$28-1231 
28-1231 
$28-1231 
#28-1231 
#28-1231 
28-1231 
#28-1231 
28-1231 
28-1231 
#28-1231 
28-1231 
28-1231 
#28-1231 
#28-1231 


141-7792 
150-9429 


152-9552 


141-7792 
150-9429 
141-7792 
0142-7999 
144-8650 
#145-8871 
0147-8974 
149-9298 
150-9448 
134-7396 
109-5939 
109-5958 
82-4356 
103-5663 


74-3861 
146-8896 


92-4993 


0137-7643 
#138-7670 


€39-2018 


#29-1251 
147-9030 


#139-7723 
#39-2008 


#33-1803 


142-7891 


142-7891 


#141-7792 
143-8017 
#144 -8650 
146 -8888 
147-9102 
149-9298 


139-7739 
109-5991 
109-5980 
104-5716 


109-5940 
149-9299 


127-7006 


PAGE 9 


CREF 


143-8017 


143-8017 


141-7874 
#143-8017 
#144-8650 
#146-8888 
#147-9102 

149-9417 


140-7770 
142-7942 
126-6967 


109-5959 





03.00 


144-8150 


144-8150 


0141-7874 
143-8135 
145-8684 
146-8898 

#147-9102 

0149-9417 


143-8064 


124-6855 


145-8684 


145-8684 


#141-7874 
#143-8135 
#145-8684 
146-8901 
148-9117 
$149-9417 


124-6860 











SEQ 0253 
146-8888 147-8974 148-9117 
146-8888 147-8974 148-9117 
142-7891 142-7891 142-7999 
145-8135 144-8150 144-8150 
145-8694 145-8697 145-8871 
146-8957 146-8957 146-8957 
148-9117 148-9286 148-9286 
150-9429 150-9429 150-9448 
#136-7570 142-7895 143-8021 








Se et 


CVDHCDO 


SYMBOL CROSS REFERENCE 


SYMBOL 


LSEXPS 
LSHARD 
LSHIME 
L$HPCP 
L$HPTP 
LHW 
L$Icp 
LSINIT 
L$LADP 
L$LAST 
L$LOAD 
L$LUN 
LSMREV 
L$NAME 
L$PRIO 
L$PROT 
L$PRT 


CREATED BY MACRO ON 25-APR-85 AT 16:39 PAGE 10 


VALUE 


002066 
037354 


DOHAAHAOAIANOAIAIAHIAIAIAIAHAHAIAHAHAHAAHAHAARADADaH 


REFERENCES 


#28-1231 
28-1231 
#28-1231 
28-1231 
28-1231 
28-1231 
28-1231 
28-1231 
28-1231 
28-1231 
€28-1231 
#28-1231 
#28-1231 
28-1231 
€28-1231 
28-1231 
€28-1231 
#28-1231 
28-1231 
28-1231 
28-1231 
#28-1231 
€28-1231 
$28-1231 
#28-1231 
28-1231 
#28-1231 
28-1231 
#28-1231 
30-1277 
31-1304 
43-2222 
044-2253 
045-2285 
#46-2351 
#47-2379 
048-2415 
049-2476 
#50-2514 
#51-2581 
52-2606 
53-2649 
54-2703 
134-7396 
136-7620 
137-7652 
138-7689 
139-7739 
140-7770 
#141-7874 
#142-7999 
#143-8135 


151-9472 


30-1277 
#136-7460 
#153-9584 


#135-7417 


#134-7394 
152-9534 


31-1304 


136-7552 
#30-1285 
#31-1309 


134-7400 


138-7705 
139-7742 
#140-7775 


CREF 03.00 


151-9472 


#30-1277 


152-9534 


#31-1304 


136-7602 








SEQ 0254 








CVDHCDO 


SYMBOL CROSS REFERENCE 


SYMBOL 


CREATED BY MACRO ON 25-APR-85 AT 16:39 


VALUE 


ADAHHHHAAAHAAAHAAAAHAHA oo 


HAHA 


REFERENCES 


144-8626 
145-8694 
146-8898 
147-9102 
#148 -9286 
149-9417 
150-9448 
151-9472 
152-9534 
#32-1338 
129-7109 
#41-2073 
#33-1459 
33-1458 
33-1456 
#33-1457 
083-4393 
41-2104 
41-2105 
43-2216 
43-2219 
43-2220 
#33-1451 
084-4472 
69-3564 
#86-4588 
#33-1450 
087-4661 
#31-1307 
41-2163 
088-4724 
136-7469 
136-7466 
136-7463 
32-1337 
108-5858 
#144 -8343 
57-2852 
31-1306 
28-1183 
28-1183 
€28-1183 
28-1183 
28-1183 
€28-1183 
#28-1183 
28-1183 
28-1183 
33-1461 
33-1470 
33-1462 
033-1463 


#144-8650 
145-8697 
146-8901 


#151-9495 
152-9552 
74-3892 
136-7567 
136-7604 
72-3714 
71-3651 
71-3663 
144-8230 
145-8809 
86-4593 
86 -4626 
43-2225 
43-2226 
43-2227 
57-2841 
85-4560 
85-4554 
145-8783 
57-2873 
112-6144 
88-4795 
145-8791 
96-5295 
136-7534 
136-7536 
#136-7474 
68-3526 
113-6188 
144-8394 
57-2878 
136-7600 
28-1231 
28-1231 
#28-1212 
#28-1212 
#28-1212 
28-1212 
#28-1212 
#28-1212 
28-1231 
144-8208 


72-3726 


145-8871 
146-8957 


74-3918 
145-8860 


#136-7528 
71-3674 
71-3676 


57-2860 
100-5504 
112-6153 
145-8834 
*136-7486 
118-6484 
88-4797 


96-5312 
136-7539 


73-3786 
114-6242 
144-8452 
69-3566 
144-8611 


28-1231 
28-1231 
28-1231 
28-1231 
28-1231 
28-1212 
153-9584 


CREF 


83-4421 
149-9327 


#136-7527 
136-7526 


*#57-2879 
100-5521 


*136-7488 


136-7553 


80-4249 

118-6534 

144-8571 
089-4826 


#28-1212 


03.00 


109-5975 
151-9488 


#136-7532 
144-8266 


84-4495 
125-6933 


81-4326 

133-7372 
#144 -8639 
129-7096 


#28-1212 





a 
PAGE 11 


109-6000 
151-9488 


119-6565 124-6871 


144-8187 
144-8268 


86-4631 
141-7850 


96-5315 103-5664 


28-1212 


28-1212 28-1231 


SEQ 0255 


124-6883 


104-5717 











CVOHCOO 


SYMBOL CROSS REFERENCE 


SYMBOL 


PAR2A 
PARSA 
PAR4A 


CREATED BY MACRO ON 25-APR-85 AT 16:39 


VALUE 


AHOHAHAHAHHGHHAHAHAHAHGHAHAHHAHAARHAAAH 


AHHHHHHOAA 


OD AMOMOHOHA 


REFERENCES 


#33-1464 
#33-1465 
33-1466 
@33-1467 
033-1468 
033-1469 
033-1423 
#35-1853 
33-1472 
33-1481 
@25-1473 
@33-1474 
33-1475 
#33-1476 
#33-1477 
#33-1478 
#33-1479 
#33-1480 
33-1437 
41-2165 
#32-1371 
#38-1979 
#38-1960 
58-2919 
67-3495 
76-4011 
85-4554 
93-5022 
102-5615 
114-6237 
125-6922 
62-3280 
32-1371 
32-1371 
32-1371 
#32-1371 
#32-1371 
#32-1371 
032-1371 
143-8042 
145-8869 
148-9284 
#32-1371 
28-1231 
33-1724 
62-3282 
46-2349 
66-3472 
#94-5081 
149-9390 
#95-5167 
33-1406 


71-3656 
144-8212 


#136-7533 


144-8220 
144-8222 


#145-8764 
145-8799 


126-6963 
#90 -4866 


142-7917 


119-6564 
143-8124 
147-8995 
149-9320 
33-1443 
#32-1371 
79-4190 
#91-4921 
48-2414 
#93 -5022 
142-7952 


145-8814 
62-3250 


144-8241 


#136-7537 


145-8799 


45-2277 
60-3053 
69-3559 
78-4128 
86-4608 
95-5167 
104-5713 
118-6455 
127-7002 


143-8043 


136-7493 
143-8133 
147-8996 
149-9321 
136-7489 
72-3747 


49-2475 
144-8557 
142-7970 


147-9024 
93-5024 


CREF 


PAGE 12 


*#136-7545 


145-8832 


46-2315 
61-3102 
70-3589 
79-4178 
87-4661 
96-5212 
107-5818 
119-6562 
132-7213 


145-8719 


136-7611 
144-8270 
147-8997 
149-9322 


96-S255 
51-2555 
145-8811 
143-8078 


147-9073 
94-5088 





03.00 


#136-7547 


51-2540 
62-3238 
71-3648 
80-4230 
88-4724 
97-5348 
108-5852 
120-6591 
133-7310 


147-8998 


142-7915 
144-8622 
147-9097 
149-9411 


105-5764 
51-2575 

147-9023 
143-8104 


148-9161 
129-7091 


53-2636 
63-3320 
72-3712 
81-4286 
89-4826 
98-5386 
109-5923 
121-6630 


148-9139 


142-7916 
145-8716 
148-9136 


116-6367 


#92-4991 
147-9072 
148-9158 


148-9234 
136-7580 


54-2672 
64-3387 
73-3781 
82-4356 
90-4866 
99-5451 
110-6031 
122-6669 


149-9323 


142-7989 
145-8717 
148-9137 


144-8255 


148-9230 


148-9260 
144-8515 


56-2748 
65-3423 
74-3845 
83-4393 
91-4921 
100-5492 
112-6116 
123-6772 


142-7996 
145-8718 
148-9138 


144-8327 


148-9256 
149-9362 





SEQ 0256 


57-2808 
66-3462 
75-3953 
84-4472 
92-4991 
101-5570 
113-6183 
124 -6838 


143-8041 
145-8863 
148-9278 


149-9358 
149-9394 











CvDHCDO 


SYMBOL CROSS REFERENCE 


CREATED BY MACRO ON 25-APR-85 AT 16:39 


VALUE 


HOHOOOHOHHOHOHOOHOHOHOHOAHHHOHOHOHGH AHAHAAHHGAGA AHAHAAAHAHAARAHRHAHAAAA 


REFERENCES 


32-1342 
#96-5212 
#97-5348 
96-5285 
#99-5451 
66-3467 
#101-5570 
#102-5615 
#33-1552 
32-1353 
#33-1555 
#32-1352 
#32-1354 
#33-1551 
#33-1550 
#33-1553 
#129-7090 
#33-1579 
#33-1539 
#143-8048 
74-3919 
74-3925 
96-5308 
96-5216 
33-1576 
#33-1425 
#33-1394 
#35-1859 
#35-1858 
#122-6738 
#35-1857 
35-1856 
#35-1855 
#35-1854 
93-5041 
33-1427 
33-1426 
#33-1613 
#33-1618 
#33-1619 
33-1623 
#33-1624 
#33-1627 
#33-1628 
#33-1632 
#33-1663 
#33-1679 
@33-1688 
#33-1704 
031-1304 
100-5513 
33-1646 


#105-5762 


#136-7563 
#70-3603 
#61-3203 


*61-3203 
#63-3361 
#61-3203 
38-1967 
94-5104 
*119-6563 
#119-6567 
77-4065 
77-4082 
77-4066 
77-4078 
77-4067 
77-4074 
77-4068 
77-4070 
144-8248 
147-9019 
143-8062 
148-9150 


#108-5852 
149-9346 


147-9031 


143-8131 


#76-4024 


95-5173 
96-5252 
129-7094 
#129-7098 
#76-4022 
95-5170 
147-8997 
59-2989 
*83-4397 


109-6001 
109-6007 
129-7118 
106-5790 
59-2997 
#79-4192 
145-8718 
#77-4095 
#63-3361 


#76-4027 
#77-4095 
#63-3361 
#68-3537 
98-5403 
120-6594 
120-6592 
78-4131 
78-4143 
77-4080 


77-4076 
78-4139 
77-4072 
78-4135 
144-8391 


144-8412 


CREF 


PAGE 13 


147-9079 


145-8868 


96-5248 
129-7099 


129-7115 
129-7099 
95-5169 
95-5171 
148-9138 
101-5579 
91-4954 


124-6884 
124-6890 


61-3122 

96-5231 

145-8865 
#78-4156 
#73-3799 


#77-4095 
#78-4156 
#77-4095 


#73-3799 
#107-5818 


78-4132 
78-4133 
144-8453 
144-8549 





03.00 


148-9167 


147-9090 


96-5252 


#129-7101 
36 


#118-6515 
101-5572 


91-4947 

112-6143 

147-8997 
#82-4360 
#75-3982 
#78-4156 


#103-5686 
144-8521 


78-4141 
78-4137 
147-9018 
148-9149 


148-9239 


148-9283 


129-7094 


123-6786 
#109-5927 


#118-6517 
147-9099 

#84-4512 

#77-4095 


#125-6936 


#104-5739 


147-9019 
148-9150 


148-9265 


149-9415 


#129-7103 


#123-6790 
#123-6798 


123-6777 
148-9138 
*78-4156 


#113-6210 


149-9350 


149-9367 


129-7104 


#124-6842 


#123-6782 
148-9280 
#84-4512 


#114-6264 





SEQ 0257 


149-9399 


129-7115 


#142-7922 


149-9322 
87-4680 











SYMBOL CROSS REFERENCE 





G 
G 
G 
G 
G 
G 


CREATED BY MACRO ON 25-APR-85 AT 16:39 








#33-1659 
#109-S923 
33-1408 
#32-1345 
#33-1773 
#110-6031 
#144-8165 
#28-1183 
28-1231 
28-1231 
28-1231 
28-1231 
33-1803 
49-2439 
137-7643 
153-9584 
#28-1183 
28-1231 
28-1231 
28-1231 
28-1231 
28-1231 
28-1231 
28-1231 
28-1231 
28-1231 
28-1231 
28-1231 


REFERENCES 


#144-8543 4144-8562 


144-8600 


28-1231 
28-1231 
28-1231 
28-1231 
29-1251 


44-2249 
53-2635 
151-9472 


28-1231 
28-1231 
28-1231 
28-1231 
28-1231 
28-1231 
28-1231 
28-1231 
28-1231 
28-1231 
28-1231 
28-1231 
28-1231 
28-1231 
28-1231 
28-1231 
29-1251 
29-1251 
29-1251 
29-1251 
39-2008 
39-2018 
43-2216 
43-2219 
43-2219 
43-2220 
43-2220 
44-2251 
44-2251 
45-2279 
45-2279 
45-2282 
45-2282 
45-2285 
46-2320 
46-232) 





144-8604 


28-1231 
26-1231 
28-1231 
286-1231 
30-1277 


45-2276 


54-2671 


152-9534 153-9584 153-9584 153-9584 


28-1231 
28-1231 
28-1231 
28-1231 
28-1231 
28-1231 
28-1231 
28-1231 
28-1231 
28-1231 
28-1231 
28-1231 
28-1231 
28-1231 
28-1231 
28-1231 
29-1251 
29-1251 
29-1251 
30-1277 
39-2008 
43-2216 
43-2216 
43-2219 
43-2219 
43-2220 
43-2222 
44-2251 


#144 -8640 














SEQ 0258 














28-1231 28-1231 28-1231 
28-1231 28-1231 28-1231 
28-1231 28-1231 28-1231 
28-1231 28-1231 28-1231 
30-1277 31-1304 31-1304 
46-2314 47-2373 48-2403 
134-7394 135-7417 136-7460 













28-1231 26-1231 28-1231 
28-1231 28-1231 28-1231 
28-1231 28-1231 28-1231 
28-1231 286-1231 28-1231 
28-1231 28-1231 28-1231 
28-1231 28-1231 28-1231 
28-1231 286-1231 28-1231 
28-1231 286-1231 28-1231 
28-1231 28-1231 28-1231 
28-1231 28-1231 28-1231 
26-1231 26-1231 28-1231 
28-1231 286-1231 28-1231 
28-1231 286-1231 28-1231 
28-1231 28-1231 28-1231 
28-1231 28-1231 28-1231 
28-1231 28-1231 29-1251 
29-1251 29-1251 29-1251 
29-1251 29-1251 29-1251 
29-1251 29-1251 
30-1277 
39-2008 
43-2216 
43-2216 
43-2219 
43-2219 
43-2220 
43-2222 
44-2251 
44-2251 
45-2279 
45-2279 
45-2282 
45-2282 
46-2320 
46-2320 
46-2320 









































CVDHCDO CREATED BY MACRO ON 25-APR-85 AT 16:39 PAGE 15 


SEQ 0259 
SYMBOL CROSS REFERENCE CREF 03.00 


SYMBOL VALUE REFERENCES 


46-2332 46-2332 
46-2332 
46-2332 
46-2345 


‘ee 
‘Uh tt 


SEEEEECS 


Se 
33 
53 
33 
53- 
53 
33- 
aad 





CvDHCDO CREATED BY MACRO ON 25-APR-85 AT 16:39 PAGE 16 





SEQ 0260 


SYMBOL CROSS REFERENCE CREF 03.00 
SYMBOL VALUE REFERENCES 


54-2674 54-2674 54-2674 54-2674 54-2674 54-2674 54-2674 54-2674 54-2674 
54-2674 54-2674 54-2674 54-2674 54-2674 54-2695 54-2695 54-2695 54-2695 
54-2695 54-2695 54-2695 54-2695 54-2695 54-2695 54-2695 54-2695 54-2695 
54-2695 54-2695 54-2699 54-2699 54-2699 54-2699 54-2699 54-2699 54-2699 
54-2699 54-2699 54-2699 54-2699 54-2699 54-2699 54-2699 54-2699 54-2699 
54-2699 54-2699 54-2699 54-2699 54-2699 54-2699 54-2699 54-2699 54-2703 
54-2703 54-2703 62-3263 62-3263 62-3263 75-3959 75-3959 75-3959 75-3959 
75-3959 75-3959 75-3959 73 3959 75-3959 75-3959 75-3959 75-3959 75-3959 
75-3959 75-3959 75-3959 75-3959 75-3959 75-3959 75-3959 75-3959 75-3959 
75-3959 75-3959 75-3978 75-3978 75-3978 75-3978 75-3978 75-3978 75-3978 
75-3978 75-3978 75-3978 75-3978 75-3978 75-3978 75-3978 75-3978 75-3978 
75-3978 75-3978 86-4593 86 -4593 86-4593 86-4593 86-4593 86-4593 86-4593 
86-4593 86 -4593 86-4593 86-4593 86-4593 86-4593 86-4593 86-4593 86-4626 
86 - 4626 86 -4626 86-4626 86 -4626 86-4626 86 -4626 86-4626 86 -4626 86-4626 
86-4626 86 -4626 86-4626 86 -4626 86 - 4626 86 -4626 86-4626 86 -4626 86-4626 
86-4626 86 -4626 86-4626 86 -4626 86 - 4626 86 -4626 86-4626 86 -4626 86 - 4626 
86-4626 86 -4626 86-4634 86 -4634 86-4634 86 -4634 86-4634 86 -4634 86-4634 
86-4634 86 -4634 86-4634 86 -4634 86-4634 86 -4634 86-4634 86-4634 88-4766 
88-4766 88 -4766 88-4783 88-4783 88-4783 89-4828 89-4828 89-4828 89-4828 
89-4826 89-4828 89-4828 89-4828 89-4828 89-4828 89-4828 89-4828 89-4830 
89-4830 89-4830 89-4830 89-4830 89-4830 89-4830 89-4830 89-4830 89-4830 
89-4830 89-4830 89-4830 89-4830 89-4830 89-4831 89-4831 89-4831 90-4888 
90-4888 90-4888 91-4941 91-4941 91-4941 91-4960 91-4960 91-4960 92-4999 
92-4999 92-4999 92-4999 92-4999 92-4999 92-4999 92-4999 92 -4999 92-4999 
92-4999 92-4999 92-4999 92-4999 92-4999 92-4999 92-4999 92-4999 92-4999 
92-4999 92-4999 94-5120 94-5120 94-5120 94-5134 94-5134 94-5134 96-5270 
96-5270 96-5270 97-5359 97-5359 97-5359 98-5415 98-5415 98-5415 99-5462 
99-5462 99-5462 100-5531 100-5531 100-5531 101-5585 101-5585 101-5585 102-5631 
102-5631 102-5631 128-7051 128-7051 128-7051 134-7396 134-7396 134-7396 134-7396 
134-7396 134-7396 134-7400 134-7400 134-7400 136-7462 136-7462 136-7462 136-7462 
136-7462 136-7462 136-7463 136-7463 136-7463 136-7465 136-7465 136-7465 136-7465 
136-7465 136-7465 136-7466 136-7466 136-7466 136-7468 136-7468 136-7468 136-7468 
136-7468 136-7468 136-7469 136-7469 136-7469 136-7471 136-7471 136-7471 136-7471 
136-7472 136-7471 136-7472 136-7472 136-7472 136-7475 136-7475 136-7475 136-7479 
136-7479 136-7479 136-7479 136-7479 136-7479 136-7479 136-7479 136-7479 136-7489 
136-7489 136-7489 136-7489 136-7489 136-7489 136-7489 136-7489 136-7489 136-7489 
136-7489 136-7489 136-7489 136-7489 136-7489 136-7489 136-7489 136-7489 136-7536 
136-7536 136-7536 136-7555 136-7555 136-7555 136-7555 136-7555 136-7555 136-7555 
136-7555 136-7555 136-7556 136-7556 136-7556 136-7604 136-7604 136-7604 136-7604 
136-7604 136-7604 136-7604 136-7604 136-7604 136-7604 136-7604 136-7604 136-7604 
136-7604 136-7604 136-7604 136-7604 136-7604 136-7620 136-7620 125-7620 137-7652 
137-7652 137-7652 138-7683 138-7683 138-7683 138-7689 138-7689 138-7689 138-7689 
138-7689 138-7689 138-7705 138-7705 138-7705 139-7731 139-7731 139-7731 139-7731 
139-7731 139-7731 139-7731 139-7731 139-7731 139-7731 139-7731 139-7731 139-7731 
139-7731 139-7731 139-7731 139-7731 139-7731 139-7739 139-7739 139-7739 139-7739 
139-7739 139-7739 139-7742 139-7742 139-7742 140-7770 140-7770 140-7770 140-7770 
140-7770 140-7770 140-7775 140-7775 140-7775 141-7862 141-7862 141-7862 141-7862 
141-7862 141-7862 141-7862 141-7862 141-7862 141-7862 141-7862 141-7862 141-7864 i 
141-7864 141-7864 141-7864 141-7864 141-7864 141-7866 141-7866 141-7866 141-7874 
141-7874 141-7874 142-7916 142-7916 142-7916 142-7916 142-7916 142-7916 142-7916 
142-7916 142-7916 142-7916 142-7916 142-7916 142-7916 142-7916 142-7916 142-7916 
142-7916 142-7916 142-7990 142-7990 142-7990 142-7990 142-7990 142-7990 142-7999 





-— 








CvDHCOO CREATED BY MACRO ON 25-APR-85 AT 16:39 


SYMBOL CROSS REFERENCE 
SYMBOL VALUE 


-— 





REFERENCES 


142-7999 
143-8042 
143-8042 
143-8135 
144-8615 
144-8615 
144-8615 
144 -8626 
145-8694 
145-8697 
145-8717 
145-8717 
145-8718 
145-8718 
145-8728 
145-8728 
145-8778 
145-8778 
145-8791 
145-8791 
145-8791 
145-8799 
145-8799 
145-8831 
145-8831 
145-8848 
145-8848 
145-8865 
146 -8898 
146 -8900 
146-8919 
146-8919 
146-8951 
146-8951 
146-8957 
147-8996 
147-8996 
147-8997 
147-8997 
147-9030 
147-9030 
147-9098 
147-9099 
148-9137 
148-9137 
148-9138 
148-9138 
148-9279 
148-9286 
149-9321 
149-9321 
149-9322 


142-7999 
143-8042 
143-8042 
143-8135 
144-8615 
144-8615 
144-8615 
144-8626 
145-8694 
145-8697 
145-8717 
145-8717 
145-8718 
145-8718 
145-8728 
145-8728 
145-8778 
145-8778 
145-8791 
145-8791 
145-8791 
145-8799 
145-8799 
145-8831 
145-8831 
145-8848 
145-8848 
145-8865 
146-8898 
146-8900 
146-8919 
146-8919 
146-8951 
146-8951 
146-8957 
147-8996 
147-8996 
147-8997 
147-8997 
147-9030 
147-9030 
147-9098 
147-9099 
148-9137 
148-9137 
148-9138 
148-9138 
148-9279 
148-9286 
149-9321 
149-9321 
149-9322 


143-8042 
143-8042 
143-8125 
144-8321 
144-8615 
144-8615 
144-8619 
144-8650 
145-8695 
145-8697 
145-8717 
145-8717 
145-8718 
145-3718 
145-8728 
145-8728 
145-8778 
145-8778 
145-8791 
145-8791 
145-8799 
145-8799 
145-8831 
145-8831 
145-8848 
145-8848 
145-8864 
145-8865 
146-8898 
146-8901 
146-8919 
146-8919 
146-8951 
146-8951 
147 -8996 
147-8996 
147-8997 
147-8997 
147-9030 
147-9030 
147-9030 
147-9098 
147-9102 
148-9137 
148-9137 
148-9138 
148-9138 
148-9280 
149-9321 
149-9321 
149-9322 
149-9322 


PAGE 17 


rPFE 03.00 


143-8042 
143-8042 
143-8125 
144-8321 
144-8615 
144-8615 
144-8619 
144-8650 
145-8695 
145-8697 
145-8717 
145-8717 
145-8718 
145-8718 
145-8728 
145-8728 
145-8778 
145-8778 
145-8791 
145-8791 
145-8799 
145-8799 
145-8831 
145-8831 
145-8848 
145-8848 
145-8864 
145-8865 
146-8898 
146-8901 
146-8919 
146-8919 
146-8951 
146-8951 
147-8996 
147-8996 
147-8997 
147-8997 
147-9030 
147-9030 
147-9030 
147-9098 
147-9102 
148-9137 
148-9137 
148-9138 
148-9138 
148-9280 
149-9321 
149-9321 
149-9322 
149-9322 


143-8042 
143-8042 
143-8125 
144-8321 
144-8615 
144-8615 
144-8619 
144-8650 
145-8695 
145 -8697 
145-8717 
145-8717 
145-8718 
145-8718 
145-8728 
145-8728 
145-8778 
145-8778 
145-8791 
145-8791 
145-8799 
145-8799 
145-8831 
145-8831 
145-8848 
145-8848 
145-8664 
145-8865 
146-8898 
146-8901 
146-8919 
146-8919 
146-8951 
146-8951 
147-8996 
147-8996 
147-8997 
147-8997 
147-9030 
147-9030 
147-9030 
147-9098 
147-9102 
148-9137 
148-9137 
148-9138 
148-9138 
148-9280 
149-9321 
149-9321 
149-9322 
149-9322 





143-8042 
143-8042 
143-8125 
144-8321 
144-8615 
144-8615 
144-8626 
145-8694 
145-8696 
145-3717 
1435-8717 
145-8718 
145-8718 
145-8728 
145-8728 
145-8778 
145-8778 
145-8791 
145-8791 
145-8791 
145-8799 
145-8799 
145-8831 
145-8831 
145-8848 
145-8848 
145-8864 
145-8871 
146-8899 
146-8901 
146-8919 
146-8919 
146-8951 
146-8951 
147-8996 
147-8996 
147-8997 
147-8997 
147-9030 
147-9030 
147-9030 
147-9099 
148-9137 
148-9137 
148-9138 
148-9138 
148-9279 
148-9280 
149-9321 
149-9321 
149-9322 
149-9322 


143-8042 
143-8042 
143-8125 
144-8321 
144-8615 
144-8615 
144-8626 
145 -8694 
145-8696 
145-8717 
145-8717 
145-8718 
145-8718 
145-8728 
145-8728 
145-8778 
145-8778 
145-8791 
145-8791 
145-8791 
145-8799 
145-8799 
145-8831 
145-8831 
145-8848 
145-8848 
145-8864 
145-8871 
146 -8899 
146-8901 
146-8919 
146-8919 
146-8951 
146-8951 
147 -8996 
147-8996 
147-8997 
147-8997 
147-9030 
147-9030 
147-9030 
147-9099 
148-9137 
148-9137 
148-9138 
148-9138 
148-9279 
148-9280 
149-9321 
149-9321 
149-9322 
149-9322 


143-8042 
143-8042 
143-8125 
144-8321 
144-8615 
144-8615 
144-8626 
145-8694 
145-8696 
145-8717 
145-8717 
145-8718 
145-8718 
145-8728 
145-8728 
145-8778 
145-8778 
145-8791 
145-8791 
145-8791 
145-8799 
145-8799 
145-8831 
145-8831 
145-8848 
145-8848 
145-8864 
145-8871 
146-8899 
146-8901 
146-8919 
146-8919 
146-8951 
146-8951 
147-8996 
147-8996 
147-8997 
147-8997 
147-9030 
147-9030 
147-9030 
147-9099 
148-9137 
148-9137 
148-9138 
148-9138 
148-9279 
148-9280 
149-9321 
149-9321 
149-9322 
149-9322 





SEQ 0261 


143-8042 
143-8042 
143-8135 
144-8615 
144-8615 
144-8615 
144 -8626 
145-8694 
145-8697 
145-8717 
145-8717 
145-8718 
145-8718 
145-8728 
145-8728 
145-8778 
145-8778 
145-8791 
145-8791 
145-8791 
145-8799 
145-8799 
145-8831 
145-8831 
145-8848 
145-8848 
145-8865 
146-8898 
146-8900 
146-8919 
146-8919 
146 -8951 
146-8951 
146-8957 
147-8996 
147-8996 
147-8997 
147-8997 
147-9030 
147-9030 
147-9098 
147-9099 
148-9137 
148-9137 
148-9138 
148-9138 
148-9279 
148-9286 
149-9321 
149-9321 
149-9322 
149-9322 


eel ake 





CvDHCDO 


SYMBOL CROSS REFERENCE 





CREATED BY MACRO ON 25-APR-85 AT 16:39 


SYMBOL VALUE 

SVCSUB 000001 
SVCTAG 000001 
SVCTST 000001 
SWAPO 025372 
SWPTQ1 037746 
SWPTQ2 040022 
SWPTQ3 040111 
S$LSYM 010000 
TERMSG 013521 
TIMER1 002302 
TIMER2 002304 
TIMERS 002306 
TNUM 000012 
TP4BRT 027530 
TP4FLG 2256 
TP4RTN 027552 
TP4VEC 902254 
TRPAD2 017216 
TSTNUM 002224 


AAOAAD 


ono AD AD 





REFERENCES 


149-9322 
149-9417 
150-9443 
151-9472 
151-9484 
151-9486 
151-9488 
151-9488 
151-9490 
151-9490 
151-9492 
151-9495 
152-9545 
152 -9547 
152-9547 
152-9549 
153-9584 
28-1183 
28-1583 
48-2415 
136-7620 
145-8778 
149-9417 
28-1183 
148-9117 
#111-6065 
152-9545 
152-9547 
152-9549 
#28-1183 
049-2476 
#75-3959 
#143-8135 
#145-8791 
145-8871 
#150-9448 
041-2166 
@33-1446 
@33-1447 
#33-1448 
#136-7622 
143-8025 
146 -8890 
149-9303 
#130-7148 
33-1431 
#141-7812 
131-7178 
#33-1430 
#144-8171 
65-3427 
33-1418 


149-9322 
149-9417 
150-9443 
151-9472 
151-9484 
151-9486 
151-9488 
151-9488 
151-9490 
151-9490 
151-9492 
151-9495 
152-9545 
152-9547 
152-9547 
152-9549 
153-9584 
#28-1191 
€28-1193 
49-2476 
137-7652 
145-8791 
150-9448 
#28-1190 
149-9298 
147-9012 
#152-9562 
#152-9563 
152-9564 
#30-1285 
#50-2514 
#134-7400 
#144-8650 
145-8799 
146-8951 
#151-9495 
146-8951 
#57-2817 
128-7044 
#128-7047 
141-7793 
144-8153 
147-8975 
150-9430 
144-8317 
#64 -3388 
144-8272 
136-7500 
130-7150 
144-8623 
130-7148 
107-5820 


149-9412 
150-9443 
150-9443 
151-9484 
151-9484 
151-9486 
151-9488 
151-9488 
151-9490 
151-9492 
151-9492 
152-9534 
152-9545 
152-9547 
152-9543 
152-9552 
153-9584 


30-1285 

50-2514 

138-7705 
145-8799 
151-9495 
141-7792 
150-9429 
147-9014 


#31-1309 
#51-2581 
136-7620 
145-8778 
145-8799 
146-8951 
#152-9552 


57-2818 
#128 -7046 
#128-7049 
#141-7793 
144-8153 
#147-8975 
#150-9430 


64-3390 

144-8335 
136-7522 
131-7180 


#141-7794 


PAGE 18 


CREF 


149-9412 
150-9443 
150-9443 
151-9484 
151-9484 
151-9486 
151-9488 
151-9488 
151-9490 
151-9492 
151-9492 
152-9534 
152-9545 
152-9547 
152-9549 
152-9552 
153-9584 


31-1309 
51-2581 
139-7742 
145-8848 
152-9552 
142-7891 


147- 306i 


43-2222 
#52 -2606 
#137-7652 
145-8778 
145-8799 
146-8951 


57-2835 


141-7794 
144-8154 
147-8976 
150-9431 


#65-3425 
144-8409 
141-7800 

#136-7499 


#142-7899 


03.00 


149-9412 
150-9443 
150-9443 
151-9484 
151-9484 
151-9486 
151-9488 
151-9488 
151-9490 
151-9492 
151-9492 
152-9534 
152-9545 
152-9547 
152-9549 
152-9552 
153-9584 


43-2222 
52-26% 
149-7775 
145-8871 


143-8017 
147-9063 


044-2253 
53-2649 
#138-7705 
145-8778 
#145-8799 
$146 -8951 


128-7041 


142-7898 
145-8685 
148-9118 


65-3427 

144-8414 
144-8172 
136-7509 


#143-8025 


149-9412 
150-9443 
150-9448 
151-9484 
151-9486 
151-9486 
151-9488 
151-9490 
151-949¢- 
151-9492 
151-949¢ 
152-9545 
152-9547 
152-9547 
152-9549 
153-9584 


44-2253 
53-2649 
141-7874 
146-8951 


144-8150 


#45 -2285 
54-2703 
139-7742 
#145-8778 

145-8848 
#146-8957 


#128-7043 


4142-7898 
145-8685 
0148-9118 


#130-7151 
144-8576 
#136-7521 


*144-8154 


149-9412 
150-9443 
150-9448 
151-9484 
151-9486 
151-9486 
151-9488 
151-9490 
151-9490 
252-9492 

- 4992 
152-9545 
152-9547 
152-9547 
152-9549 
153-9584 


45-2285 
54-2703 
142-7999 
146 -8957 


145 -8684 


46-2351 
75-3959 

#140-7775 
145-8791 
145-8848 

#147-9102 


142-7899 
145 -8686 
148-9119 


#131-7181 
144-8583 
136-7530 


#145 -8686 





149-9412 
150-9443 
150-9448 
151-9484 
151-9486 
151-9486 
151-9488 
151-9490 
151-9490 
151-9492 
151-9492 
152-9545 
152-9547 
152-9547 
152-9549 
153-9584 


46-2351 
75-3959 
143-5135 
147-9102 


146-8888 


#47-2379 
75-3959 

#141-7874 
145-8791 
145-8848 

0148-9286 


143-8024 
146-8889 
149-9302 


#136-7504 


#141-7799 


#146-8890 





149-9417 
150-9443 
151-9472 
151-9484 
151-9486 
151-9488 
151-9488 
151-9490 
151-9490 
151-9492 
151-9495 
152-9545 
152-9547 
152-9547 
152-9549 
153-9584 


47-2379 
134-7400 
144-8650 
148 -9286 


147-8974 


048-2415 
75-3959 
#142 -7999 
145-8791 
#145 -8848 
#149-9417 


#143-8024 
$146 -8889 
149-9302 


#136-7523 


141-7857 


#147-8976 





SEQ 0262 








CvOHCDO 


SYMBOL CROSS REFERENCE 


SYMBOL 


TXAD1A 
TXAD10 
TXAD2A 
TXAD20 
TXBFCA 
TXBFCO 
TXCHA 

TXCHRO 
TXCNTB 


TXRXLE 
TXSCHR 
TXVECA 


T$ARGC 


CREATED BY MACRO ON 25-APR-85 AT 16:39 


VALUE 


900 & AHH AH AARHAHAAHR ananan DHAGHAHGHAHAG 


REFERENCES 


#148-9119 
033-1410 
32-1347 
@33-1411 
#32-1348 
33-1412 
@32-1349 
33-1406 
@32-1343 
33-1578 
#133-7368 
33-1540 
132-7213 
96-5309 
33-1538 
#132-7240 
113-6183 


@33-1764 
133-7310 
@33-1395 
147-9098 
28-1231 
28-1231 
43-2216 
44-2251 
45-2282 
46-2320 
46-2332 
46-2347 
047-2376 
47-2377 
48-2408 
48-2411 
049-2442 
49-2445 
50-2501 


#149-9303 
72-3754 


72-3750 
72-3753 
80-4245 
#80 -4246 


#96 -5215 
142-7916 
#112-6116 
62-3246 
#133-7342 
119-6566 
114-6237 
96-5251 
142-7955 
116-6365 
96-5217 
#81-4316 


80-4237 
74-3883 


#118-6510 


147-8996 
#136-7565 
148-9137 
28-1231 
28-1231 
43-2216 
044-2251 
45-2282 
46 -2320 
046 -2345 
046 -2347 
47-2376 
048-2407 
#48 -2408 
048-2411 
49-2442 
049-2472 
50-2501 


#150-9431 
144-8480 


72-3755 
108 -5866 
133-7366 
81-4321 


96-5246 
143-8042 


#83-4396 
#142-7921 
129-7110 
118-6467 
#129-7111 
142-7973 
142-7986 
117-6393 
#83-4395 


#80-4242 
74-3901 
124-6867 
98-5414 
98-5416 
143-8091 
149-9404 
51-2567 
123-6773 


142-7916 
148-9279 
#28-1231 
#28-1231 

043-2219 

44-2251 

45-2282 

46-2320 

46-2345 

46 -2347 
047-2376 

48-2407 

48-2408 

48-2411 

049-2442 

49-2472 

50-2508 


CREF 


PAGE 19 


113-6186 
144-8479 


102-5624 


#96 -5257 
145-8717 


96 -S232 
*#143-8047 


120-6593 


143-8118 
97-5349 


81-4307 
74-3912 
124-6878 
#119-6562 
#120-6591 
143-8122 


58-2931 


142-7990 
149-9321 
28-1231 

28-1231 

43-2219 

44-2251 

45-2282 
46 -2332 
046-2345 

46-2347 

47-2376 
048-2407 
#48 -2408 

48-2411 

49-2442 
#49-2472 

50-2508 


03.00 


114-6240 


#115 -6336 


129-7106 
148-9137 


102-5617 
*143-8093 


144-8446 


#115-6331 


115-6322 
83-4417 


145-8825 
59-2991 


143-8042 
149-9412 
28-1231 
28-1231 
43-2219 
45-2279 
45-2282 
46-2332 
46-2345 
047-2375 
47-2376 
48-2407 
48-2408 
048-2413 
49-2442 
49-2472 
50-2508 


144-8476 


#118-6500 


#129-7113 
149-9321 


#109-5926 


149-9328 


#124-6840 


#118-6501 
83-4429 


147-9036 
63-3338 


143-8125 


$28-1231 
$28-1231 
43-2220 
45-2279 
46-2320 
#46 -2332 
046-2345 
47-2375 
047-2377 
#48-2407 
48-2408 
48-2413 
049-2445 
49-2472 
50-2508 


144-8481 


132-7238 


112-6124 


#132-7257 


132-7248 
109-5947 


147-9084 
68-3524 


145-8717 


28-1231 
28-1231 
43-2220 
45-2279 
46-2320 
46-2332 
46-2345 
047-2375 
47-2377 
48-2407 
048-2411 
048-2413 
49-2445 
#50-2501 
#50-2508 


#132-7263 


112-6152 


#142-7927 


133-7358 
109-5966 


148-9172 
88-4761 


145-8864 


28-1231 
28-1231 
43-2220 
45-2279 
#46 -2320 
46 -2332 
46-2345 
47-2375 
047-2377 
48-2407 
48-2411 
48-2413 
049-2445 
50-2501 
50-2508 





SEQ 0263 


133-7340 


#124 -6841 


#143 -8049 


#133-7363 
109-5984 


148-9244 
88-4777 


147-8996 


28-1231 
043-2216 
044-2251 
45-2279 
46-2320 
46-2332 
046-2347 
47-2375 
47-2377 
048-2408 
048-2411 
48-2413 
49-2445 
50-2501 
50-2508 








[  cvoncoo 


SYMBOL CROSS REFERENCE 


CREATED BY MACRO ON 25-APR-85 AT 16:39 


SYMBOL VALUE 

TSCODE 000130 
TSERRN 022125 
TSEXcP 000000 
TSFLAG 000040 
T$GMAN 000000 
TSHILI 177777 
T$LAST 000001 
TSLOLI 000000 
TSLSYM 010000 
T$LTNO 000012 
T$NEST 177777 


-— 


REFERENCES 


#51-2542 
51-2554 
51-2573 
52-2604 
53-2638 
53-2647 

054-2699 

75-3978 
86 - 4626 

086 - 4626 

#92-4999 

#136 -7604 
144-8615 
145-8728 

#146 -8919 

#75-3959 
145-8778 

#145 -8799 
145-8848 

#151-9484 
151-9486 

#151-9490 
151-9492 

#152-9547 
152-9549 

#28-1183 

€75-3959 
151-9488 

#134-7396 
139-7739 

#145 -8694 
146-8898 

028-1183 

#75-3959 
151-9488 

€28-1183 

#75-3959 
15) -9488 

e2e- 3 
48-2615 
137-7652 
146 -8957 

#153 -9584 

28-1183 
30-1285 
43-2211 
44-2249 
45-2285 

46-2351 

€48-2403 
49-2476 
50-2514 


51-2542 
#51-2554 
#51-2573 
@S2 -2604 

53-2638 
054-2674 

54-2699 

75-3978 
86 -4626 

86 -4626 

92-4999 

136-7604 
#144-8615 

145-8728 

146-8919 

75-3959 
0145-8778 

145-8799 
#145-8848 

151-9484 
#151-9486 

151-9490 
#151-9492 

152-9547 
#152-9549 
089-4828 

75-3959 
#151-9490 
#134-7396 
#140-7770 

145-8694 


147-9102 


28-1205 
#30-1285 
@43-2211 

44-2253 

45-2285 

47-2373 

48-2403 

49-2476 
#50-2514 


144-8615 
145-8831 
146-8919 
#75-3959 
145-8778 
#145-8799 
145-8848 
151-9484 
151-9486 
#151-9490 
151-9492 
152-9547 
152-9549 
89-4828 
#145-8791 
151-9490 
134-7396 
#140-7770 
145-8694 
146-8901 
.F5-3959 
#145-8791 
151-9490 


#145-879: 
151-9490 
30-1285 
50-2514 
139-7742 
148-9286 


#28-1205 
31-1304 
43-2211 
44-2253 

45-2285 

47-2373 
48-2415 
49-2476 
51-2539 





PAGE 20 
CREF 03.00 
51-2542 51-2542 
51-2554 51-2573 
@51-2573 51-2573 
eS2-°°04 52-2604 
s5-2043 = 053-2643 
@54-2674 54-2674 
54-2699 54-2699 
75-3978 75-3978 
#86 -4626 86-4626 
086 -4634 86-4634 
92-4999 92-4999 
@139-7731 139-7731 
144-8615 144-8615 
145-8831 145-8831 
75-3959 75-3959 
#145-8791 145-8791 
145-8799 145-8799 
146-8951 146-8951 
151-9484 151-9484 
#151-9488 151-9488 
151-9490 151-9490 
#152-9545 152-9545 
152-9547 152-9547 
141-7862 141-7862 
145-8791 151-9484 
151-9492 151-9492 
138-7689 138-7689 
140-7770 144-8626 
145-8697 145-8697 
146-8901 146-8901 
#145-8791 145-8791 
145-8791 151-9484 
#151-9492 151-9492 
145-8791 151-9484 
#151-9492 151-9492 
31-1309 43-2222 
51-2581 52-2606 
140-7775 141-7874 
149-9417 150-9448 
28-1205 30-1277 
#31-1304 31-1304 
43-2222 43-2222 
44-2253 44-2253 
46-2314 46-2314 
47-2373 47-2379 
48-2415 48-2415 
049-2476 50-2499 
51-2539 51-2539 


#51-2550 
51-2573 
#51-2573 
52-2604 
53-2643 
54-2674 
54-2699 
086-4593 
#86 -4626 
86-4634 
92-4999 
139-7731 
144-8615 
145-8831 


75-3959 
#145-8791 
145-8799 
#146-8951 
151-9484 
#151-9488 
151-9490 
#152-9545 
152-9547 


150-9443 
151-9484 
152-9547 
138-7689 
0144-8626 
145-8697 
146-8901 


151-9484 
#152-9547 


151-9484 
152-9547 
44-2253 
53-2649 
142-7999 
151-9495 


#30-1277 
31-1309 
43-2222 
45-2276 
46-2314 
47-2379 

048-2415 

#50 -2499 
51-2581 


51-2550 
51-2573 
51-2573 
53-2638 
53-2643 
54-2695 
54-2699 
86-4593 
86-4626 
989-4830 
92-4999 
139-7731 
#145-8728 
145-8831 


#145-8778 
145-8791 
4145-8848 
146-8951 
151-9486 
151-9488 
#151-9492 
152-9545 
#152-9549 


150-9443 
#151-9486 
152-9547 
138-7689 
144-8626 
145-8697 


#151-9486 
152-9547 


#151-9486 
152-9547 
45-2285 
54-2703 
143-8135 
152-9552 


30-1277 
31-1309 
043-2222 
045-2276 
46-2351 
47-2379 
49-2439 
50-2499 
51-2581 





51-2550 
51-2573 
51-2573 
53-2638 
#53 -2647 
54-2695 
54-2699 
86-4593 
86 -4626 
89-4830 
136-7604 
139-7731 
145-8728 
#146-8919 


145-8778 
#145-8791 
145-8848 
#146-8951 
151-9486 
#151-9488 
151-9492 
#152-9545 
152-9549 


151-9486 


139-7739 
144-8626 
#146-8898 


151-9486 


151-9486 


46-2351 
134-7400 
144-8650 


30-1285 
31-1309 
44-2249 
45-2276 
46-2351 
047-2379 
049-2439 
50-2514 
51-2581 








#51-2554 
51-2573 
52-2604 
53-2638 
53-2647 
54-2695 
54-2699 
086-4626 
36-4626 
89-4830 
136-7604 
0144-8615 
#145-8728 
146-8919 


#145-8778 
145-8791 
145 -8848 
146-8951 
#151-9486 
151-9488 
#151-9492 
152-9545 
152-9549 


#151-9488 


0139-7739 
145-8694 
$146 -8898 


#151-9488 


#151-9488 


47-2379 
136-7620 
145-8871 


30-1285 
#31-1309 
044-2249 

45-2285 

46-2351 

48-2403 

49-2439 

50-2514 
51-2581 












CvDHCDO CREATED BY MACRO ON 25-APR-85 AT 16:39 PAGE 21 





SEQ 0265 
SYMBOL CROSS REFERENCE CREF 03.00 
SYMBOL VALUE REFERENCES 
52-2602 #52-2602 52-2602 52-2606 52-2606 52-2606 52-2606 53-2635 53-2635 
53-2635 53-2649 53-2649 53-2649 53-2649 54-2671 54-2671 54-2671 54-2703 
54-2703 54-2703 54-2703 134-7394 134-7394 134-7394 134-7400 134-7400 134-7400 
134-7400 135-7417 @135-7417 135-7417 135-7423 135-7423 135-7423 135-7423 136-7460 
@136-7460 136-7460 136-7620 136-7620 136-7620 136-7620 137-7643 137-7643 137-7643 
137-7652 137-7652 137-7652 137-7652 138-7670 138-7670 138-7670 138-7705 138-7705 
138-7705 138-7705 139-7723 139-7723 139-7723 139-7742 139-7742 139-7742 139-7742 
140-7761 140-7761 140-7761 140-7775 149-7775 140-7775 140-7775 141-7792 141-7792 
141-7792 141-7874 141-7874 141-7874 141-7874 142-7891 142-7891 142-7891 142-7999 
142-7999 142-7999 142-7999 143-8017 143-8017 143-8017 143-8135 143-8135 143-8135 
#143-8135 144-8150 144-8150 144-8150 144-8650 144-8650 144-8650 144-8650 145-8684 
#145-8684 145-8684 145-8871 145-8871 145-8871 145-8871 146-8888 146-8888 146-8888 
146-8957 146-8957 146-8957 146-8957 147-8974 147-8974 147-8974 147-9102 147-9102 
147-9102 147-9102 148-9117 148-9117 148-9117 148-9286 148-9286 148-9286 4148-9286 
149-9298 149-9298 149-9298 149-9417 149-9417 149-9417 149-9417 150-9429 150-9429 
150-9429 150-9448 150-9448 150-9448 150-9448 151-9472 151-9472 151-9472 151-9495 
151-9495 151-9495 151-9495 152-9534 152-9534 152-9534 152-9552 152-9552 152-9552 
#152-9552 153-9585 153-9585 153-9585 153-9585 
T$NSO = 000000 #28-1205 153-9585 
T$NS1 = 000005 #30-1277 30-1285 31-1304 31-1309 43-2211 43-2222 44-2249 44-2253 45-2276 
45-2285 46-2314 46-2351 47-2373 47-2379 48-2403 48-2415 49-2439 49-2476 
#50-2499 50-2514 51-2539 51-2581  #52-2602 52-2606 53-2635 53-2649 54-2671 
54-2703 134-7394 134-7400 135-7417 135-7423 136-7460 136-7620 137-7643 137-7652 
@138-7670 138-7705 139-7723 139-7742 140-7761 140-7775 141-7792 141-7874 142-7891 
142-7999 143-8017 143-8135 144-8150 144-8650 145-8684 145-8871 146-8888 146-8957 
#147-8974 147-9102 148-9117 148-9286 149-9298 149-9417 150-9429 150-9448 4151-9472 
151-9495 152-9534 152-9552 
TSPTNU = 000000 #28-1183 
T$SAVL = 177777 #28-1183 
T$SEGL = 177777 #28-1183 
T$SUBN = 000000 #28-1183 141-7792 142-7891 143-8017 144-8150 145-8684 146-8888 147-8974 148-9117 
#149-9298 150-9429 
T$TAGL = 177777 28-1183 
T$TAGN = 010041 28-1183 30-1277 30-1277 30-1277 31-1304 31-1304 31-1304 43-2211 43-2211 
€43-2211 44-2249 44-2249 44-2249 45-2276 45-2276 45-2276 46-2314 46-2314 
046-2314 47-2373 47-2373 47-2373 48-2403 48-2403 48-2403 49-2439 49-2439 
049-2439 50-2499 50-2499 50-2499 51-2539 51-2539 51-2539 52-2602 52-2602 
52-2602 53-2635 53-2635 53-2635 54-2671 54-2671 54-2671 134-7394 134-7394 
134-7394 135-7417 135-7417 135-7417 136-7460 136-7460 136-7460 137-7643 137-7643 
9137-7643 138-7670 138-7670 138-7670 139-7723 139-7723 139-7723 140-7761 140-7761 
#140-7761 141-7792 141-7792 141-7792 142-7891 142-7891 142-7891 143-8017 143-8017 
#143-8017 144-8150 144-8150 144-8150 145-8684 145-8684 145-8684 146-8888 146-8888 
#146-8888 147-8974 147-8974 147-8974 148-9117 148-9117 148-9117 149-9298 149-9298 
op 150-9429 150-9429 150-9429 151-9472 151-9472 151-9472 152-9534 152-9534 
#152- 
TSTEMP = 900000 29-1251 29-1251 29-1251 29-1251 29-1251 29-1251 29-1251 29-1251 29-1251 
#29-1251 29-1251 29-1251 29-1251 29-1251 29-1251 29-1251 29-1251 29-1251 
29-1251 29-1251 29-1251 39 #99-1251 29-1251 29-1251 29-1251 29-1251 29-1251 
29-1251 29-1251 29-1251 29-1251 30-1285 30-1285 31-1309 31-1309 43-2222 
43-2222 44-2253 44-2253 45-2285 45-2285 46-2351 46-2351 47-2379 47-2379 
@48-2415 48-2415 49-2476 49-2476 50-2514 50-2514 51-2581 51-2581 52-2606 
52-2606 53-2649 53-2649 54-2703 54-2703 75-3959 75-3959 75-3959 75-3959 














man ona ot 


CVDHCDO 


SYMBOL CROSS REFERENCE 


CREATED BY MACRO ON 2°-APR-85 AT 16:39 


SYMBOL VALUE 

TSTEST = 000012 
T$TSTM = 177777 
T$TSTS = 000001 
T$$AU = 010024 
T$$AUT = 010021 
T$S8CLE = 010022 
T$sDU == 010023 
T$$HAR = 010037 
T$$HW == 010000 
T$$INI = 010020 
T$$MSG = 010015 
T$$PRO = 010017 
T$$RPT = 010016 
T$$SOF = 010040 
T$$SW = = 010001 


REFERENCES 


#75-3959 
136-7620 
#139-7742 
142-7999 
#145 -8697 
145-8791 
145-8799 
145-8871 
#146-8951 
149-9417 
151-9486 
151-9488 
#151-9492 
152-9545 
#152-9547 
152-9552 
#28-1183 
143-8017 
146-8888 
149-9298 
#28-1183 
45-2285 
47-2379 
49-2476 
52-2604 
54-2703 
89-4828 
96-5270 
136-7462 
136-7604 
141-7862 
143-8135 
145-8717 
145-8865 
147-8997 
149-9321 
#28-1183 
#149-9298 
#140-7761 
0137-7643 
#138-7670 
139-7723 
#151-9472 


#52-2602 
#135-7417 
0134-7394 
152-9534 
#31-1304 


75-3959 
#137-7652 
139-7742 
#143-8135 
145-8697 
#145-8791 
145-8799 
#146-8898 
146-8951 
150-9448 
151-9486 
#151-9488 
151-9492 
#152-9545 
152-9547 
#153-9585 
141-7792 
144-8150 
147-8974 


#141-7792 
#150-9429 
140-7770 
137-7652 
138-7689 
139-7739 
151-9472 
30-1277 
136-7620 
43-2222 
#48 -2403 
S2 -2606 


134-7396 
152-9534 
31-1304 


0134-7396 
137-7652 
140-7770 
143-8135 
#145-8778 
145-8791 
0145-8848 
146-8898 
0146-8957 
150-9448 
#151-9486 
151-9488 
#151-9492 
152-9545 
#152 -9549 
153-9585 
141-7792 
#144-8150 
#147-8974 
#150-9429 
43-2219 
46-2332 
48-2408 
50-2508 
53-2638 
75-3959 
89-4831 
98-5415 
136-7468 
137-7652 
141-7866 
144-8615 
145-8728 
146-8898 
147-9099 
149-9412 
142-7891 


140-7775 


138-7705 
139-7742 
151-9495 
30 1285 


044-2249 
48-2415 
#53-2635 


134-7400 
152-9552 
31-1309 


PAGE 22 
CREF 03.00 
134-7396 134-7400 
#138-7689 138-7689 
140-7770 140-7775 
144-8626 144-8626 
145-8778 145-8778 
#145-8791 145-8791 
145-8848 145-8848 
#146-8901 146-8901 
146-8957 147-9102 
#151-9484 151-9484 
151-9486 151-9486 
#151-9490 151-9490 
151-9492 151-9492 
#152-9545 152-9545 
152-9549 152-9549 
141-7792 142-7891 
144-8150 145-8684 
147-8974 148-9117 
150-9429 153-9584 
43-2220 43-2222 
46-2345 46-2347 
48-2411 48-2413 
50-2514 51-2542 
53-2643 53-2647 
75-3978 86-4593 
90-4888 91-4941 
99-5462 100-5531 
136-7471 136-7475 
138-7683 138-7689 
141-7874 142-7916 
144-8619 144-8626 
145-8778 145-8791 
146-8899 146-8901 
147-9102 148-9137 
149-9417 150-9443 
#143-8017 144-8150 
. 
44-2253 45-2276 
049-2439 49-2476 
53-2649 54-2671 





134-7400 
138-7705 
140-7775 
#144-8650 
145-8778 
#145-8799 
145-8848 
#146-8951 
147-9102 
#151-9484 
151-9486 
#151-9490 
151-9492 
#152-9547 
152-9549 


#142-7891 
0145-8684 
#148-9117 


44-2251 
46-2351 
48-2415 
51-2550 
53-2649 
86 -4626 
91-4960 
101-5585 
136-7479 
138-7705 
142-7990 
144-8650 
145-8799 
146-8919 
148-9138 
150-9448 
145-8684 


45-2285 
#50-2499 
54-2703 


135-7423 
138-7705 
0141-7874 
144-8650 
#145-8778 
145-8799 
0145-8848 
146-8951 
9148-9286 
151-9484 
#151-9488 
151-9490 
#151-9495 
152-9547 
#152-9549 


142-7891 
145-8684 
148-9117 


44-2253 
47-2375 
49-2442 
51-2554 
54-2674 
86-4634 
92-4999 
102-5631 
136-7489 
139-7731 
142-7999 
145-8694 
145-8831 
146-8951 
148-9279 


#146 -8888 


046-2314 
50-2514 





135-7423 
0139-7739 
141-7874 
0145-8694 
145-8778 
#145-8799 
145-8848 
#146-8951 
148-9286 
#151-9484 
151-9488 
#151-9490 
151-9495 
#152-9547 
152-9549 


143-8017 
146-8888 
149-9298 


45-2279 
47-2376 
49-2445 
51-2573 
54-2695 
88-4766 
94-5120 
128-7051 
136-7536 
139-7742 
143-8042 
145-8695 
145-8848 
146-8957 
148-9280 


#147-8974 


46-2351 
#51-2539 





SEQ 0266 


136-7620 
139-7739 
#142-7999 
145-8694 
145-8791 
145-8799 
#145-8871 
146-8951 
0149-9417 
151-9484 
#151-9488 
151-9490 
#152-9545 
152-9547 
#152-9552 


#143-8017 
0146-8888 
149-9298 


45-2282 
47-2377 
49-2472 
51-2581 
54-2699 
88-4783 
94-5134 
134-7400 
136-7555 
140-7775 
143-8125 
145-8697 
145-8864 
147-8996 
148-9286 


#148-9117 


047-2373 
51-2581 








CVDHCDO 


SYMBOL CROSS REFERENCE 


CREATED BY 


SYMBOL VALUE 

TS$TES = 010036 
Ti 031142 
T10 037272 
Te 031432 
T3 032004 
T4 032370 
TS 034166 
T6 035060 
1? 035306 
T8 036036 
19 036646 
UAM = 000200 
UBRFMT 007532 
UNITN 002200 
UNSDIV 026530 
UPOCHR 026664 
VANSUP 026762 
WAIBIS 027160 
WORD1 002240 
WTWLENC 027234 
WTWLPR 027264 
X$ALWA = 000000 
X$FALS = 000040 
XSOFFS = 000400 
X$TRUE = 000020 
$PATCH 040172 


DADOHAADOAHAHAAHAHAHAAAAHRHAAD 


REFERENCES 


#141-7792 
145 -8684 
147-9102 
29-1251 
29-1251 
29-1251 
29-1251 
29-1251 
29-1251 
29-1251 
29-1251 
29-1251 
29-12") 
32-1371 
#41-2103 
33-1399 
57-2876 
61-3132 
#124 -6838 
62-3251 
#33-1424 
118-6464 
118-6466 
28-1183 
28-1183 
#28-1183 
#28-1183 
#153-9574 


141-7874 

145-8694 
#148-9117 
141-7792 
#150-9429 
#142-7891 
#143-8017 
#144-8150 
#145-8684 
146-8888 
0147-8974 
#148-9117 
#149-9298 


75-3978 
#136-7540 
#122-6669 

61-3171 

147-9021 

96-5237 
*#136-7505 
#126-6963 
#127-7002 


4ACRO ON 25-APR-85 AT 16:39 


#142-7891 
145-8697 
148-9286 


#136-7551 


61-3183 
147-9070 
#125-6922 
136-7506 
144-8443 
144-8445 


PAGE 23 


CREF 


03.00 


142-7999 4143-8017 


143-8135 144-8150 


146-8898 


149-9417 150-9429 


145-8871 4146-8888 
#149-9298 
136-7552 136-7555 
62-3284  $123-6772 
148-9152 148-9224 
144-8492 
#136-7524 136-7525 
145-8772 145-8861 
146-8941 
e ,o° 





136-7604 


148-9251 


146-8944 


146-8901 
150-9448 


141-7864 


144-8626 144-8650 
146-8957 147-8974 


SEQ 0267 








CVDHCDO 


MACRO CROSS REFERENCE 


MACRO NAME 


REFERENCES 


136-7463 
140-7761 
137-7643 
138-7670 
139-7723 
151-9472 
30-1277 

136-7460 
28-1205 

43-2211 

53-2635 

135-7417 
134-7394 
152-9534 
31-1304 

141-7792 
136-7472 
89-4831 

136-7475 
136-7479 
142-7990 
147-9030 
39-2018 

39-2008 

29-1251 

141-7866 
141-7864 
140-7775 
137-7652 
138-7705 


145-8778 
136-7555 


136-7466 


44-2249 
54-2671 


142-7891 


128-7051 
136-7536 


143-8125 


44-2253 
54-2703 


142-7999 


150-9443 
88-4766 
99-5462 


138-7689 
145-8791 
145-8799 


CREATED BY MACRO ON 25-APR-85 AT 16:39 


136-7469 


45-2276 


143-8017 


138-7683 
145-8864 


45-2285 


143-8135 


88-4783 
100-5531 


139-7739 
145-8848 


PAGE 24 

CREF 03.00 
136-7556 145-8696 
46-2314 47-2373 
144-8150 145-8684 
145-8865 147-9098 
46-2351 47-2379 
144-8650 145-8871 
90-4888 91-4941 
101-5585 102-5631 
140-7770 144-8626 
146-8951 





146-8900 


48-2403 


146-8888 


147-9099 


48-2415 


146-8957 


91-4960 
144-8619 


145-8694 


49-2439 


147-8974 


148-9279 


49-2476 


147-9102 


94-5120 


145-8697 


50-2499 


148-9117 


148-9280 


50-2514 


148-9286 


94-5134 


146-8898 





51-2539 


149-9298 


149-9412 


51-2581 


149-9417 


96-5270 


146-8901 





SEQ 0268 


52-2602 


150-9429 


52-2606 


150-9448 


97-5359 











CVOHCDO 


MACRO CROSS REFERENCE 


MACRO NAME 


MSDATA 


MSDECR 


MSDEFA 


MSENDE 


MSERRI 
MSEXCP 
MSEXI1 


MSEXSE 
MSEXTJ 


REFERENCES 


151-9484 
75-3959 
#145-8778 

28-1231 

153-9584 

145-8695 

144-8321 
28-1231 
134-7396 
#145 -8694 
@75-3959 
#146-8951 
#151-9492 
43-2216 
45-2282 

46-2345 

48-2407 
049-2442 

50-2508 

51-2573 
@53-2647 
$75-3978 
086-4634 

139-7731 
€28-1231 

28-1231 

28-1231 

28-1231 

39-2008 
#30-1285 
46-2351 
#51-2581 
135-7423 
#140-7775 
145-8871 
#150-9448 
#75-3959 
#146-8951 
151-9492 
30-1285 
#51-2581 
141-7874 
#151-9495 
089-4828 
@75-3959 

151-9486 

151-9492 
0134-7396 

145-8697 
0134-7396 
0134-7396 
#146 -8898 


151-9486 
75-3959 
145-8778 


146-8899 


28-1231 
134-7396 
145-8694 
75-3959 
146-8951 
151-9492 
43-2216 
45-2282 
046-2347 
48-2407 
49-2442 
#51-2542 
51-2573 
53-2647 
75-3978 
86 -4634 
144-8615 
28-1231 
28-1231 
28-1231 
28-1231 
#39-2018 
30-1285 
46-2351 
51-2581 
135-7423 
140-7775 
145-8871 
150-9448 
75-3959 
146-8951 
151-9492 
#31-1309 
#52 -2606 
#142-7999 
#152-9552 
89-4828 
75-3959 
151-9486 
#152-9547 
#138-7689 
#146-8898 
138-7689 
134-7396 
#146-8901 


CREATED BY MACRO ON 25-APR-85 AT 16:39 


#145-8791 
145-8799 


28-1231 
0138-7689 
145-8697 
#145-8778 
151-9484 
152-9545 
43-2219 
46-2320 

46-2347 
48-2408 
049-2445 

51-2542 

51-2573 
054-2674 
086-4593 
089-4830 

144-8615 

28-1231 

28-1231 

28-1231 

28-1231 

39-2018 
31-1309 
047-2379 
52-2606 
#136-7620 
#141-7874 
146-8957 
151-9495 
#145-8778 
151-9484 
#152-9545 


143-8135 
#153-9585 
141-7862 
75-3959 
#151-9488 
152-9547 
138-7689 
146 -8898 
9139-7739 
138-7689 


CREF 


145-8791 
145-8799 


28-1231 
138-7689 
145-8697 
145-8778 
151-9484 
152-9545 
43-2219 
46-2320 
047-2375 
48-2408 
49-2445 
#51-2550 
52-2604 
54-2674 
86-4593 
89-4830 
144-8615 
28-1231 
28-1231 
28-1231 
28-1231 


146-8957 
151-9495 
145-8778 
151-9484 
152-9545 
044 -2253 
#54 -2703 
#144-8650 


141-7862 
#145-8791 
151-9488 
152-9547 
0139-7739 
246-8901 
#140-7770 
#139-7739 


PAGE 25 


03.00 


151-9488 
#145 -8848 


#139-7739 
#146 -8898 
#145-8791 
151-9486 
152-9547 
43-2220 
46-2320 
47-2375 
48-2408 
049-2472 
51-2550 
52-2604 
054-2695 
86-4626 
#92-4999 
#145-8728 
28-1231 
28-1231 
28-1231 
28-1231 


43-2222 
48-2415 
€33-2649 
137-7652 
142-7999 
147-9102 
#152-9552 
145-8791 
151-9486 
#152-9547 
45-2285 
#134-7400 
145-8871 


150-9443 
145-8791 
151-9488 


#140-7770 


139-7739 





151-9490 
145-8848 


139-7739 
146-8898 
145-8791 
151-9486 
152-9547 
43-2220 
046-2332 
047-2376 


28-1231 


43-2222 
48-2415 
53-2649 
137-7652 
142-7999 
147-9102 
152-9552 
145-8791 
1512-9486 
152-9547 
#46-2351 
#136-7620 
#146-8957 


150-9443 
145-8791 
#151-9490 
144-8626 


145-8694 
#140-7770 


151-9492 
#146-8951 


#140-7770 
#146 -8901 
#145-8799 
151-9488 
152-9549 
044-2251 
46-2332 
47-2376 
48-2411 
#50-2501 
51-2554 
@53-2638 
@54-2699 
86-4626 
92-4999 
145-8831 


044-2253 
049-2476 
54-2703 
138-7705 
#143-8135 
#148 -9286 
#153-9585 
#145-8799 
#151-9488 
152-9549 
047-2379 
0137-7652 
#147-9102 


151-9484 
151-9490 
144 -8626 


145-8697 
140-7770 


152-9547 
146-8951 


140-7770 
146-8901 
145-8799 
151-9488 
152-9549 
44-2251 
46-2332 
047-2377 
48-2411 
59-2501 
#51-2573 
53-2638 
54-2699 
86 -4626 
136-7604 
145-8831 
28-1231 
28-1231 
28-1231 
28-1231 


44-2253 
49-2476 
54-2703 
138-7705 
143-8135 
148-9286 
153-9585 
145-8799 
151-9488 
152-9549 
048-2415 
#138-7705 
#148-9286 


151-9484 
151-9490 
145-8694 


#146-8898 
0144-8626 





152-9545 


#144 -8626 


145-8848 
#151-9490 


45-2279 
046-2345 
47-2377 
048-2413 
#50-2508 
51-2573 
53-2643 
54-2699 
86-4626 
136-7604 
146-8919 
28-1231 
28-1231 
28-1231 
28-1231 


45-2285 
#50-2514 
134-7400 
139-7742 
144-8650 
0149-9417 


#145 -8848 
#151-9490 


049-2476 


0139-7742 
9149-9417 


151-9484 
151-9492 
145 -8694 


146-8901 
145 -8694 








SEQ 0269 


152-9549 


144-8626 


145-8848 
151-9490 


86 - 4626 
139-7731 
146-8919 
28-1231 

28-1231 

28-1231 

839-2008 


45-2285 
50-2514 
134-7400 
139-7742 
144-8650 
149-9417 


145-8848 
151-9490 


#50-2514 


#140-7775 
150-9448 


#151-9486 
151-9492 
#145-8697 


145-8697 











CVDHCDO 


MACRO CROSS REFERENCE 


MACRO NAME 
M$GEN 


M$GENB 
M$GETS 


MSGETT 
M$GNGB 


M$GNIN 


REFERENCES 


28-1231 
28-1231 
28-1231 
28-1231 
28-1231 
@28-1231 
#28-1231 
#28-1231 
#30-1277 
33-1803 
044-2249 
46-2351 
049-2439 
#51-2581 
54-2671 
135-7417 
#138-7670 
#140-7775 
143-8017 
#145-8778 
#146 -8888 
#148-9117 
#150-9448 


135-7423 
#140-7775 
145-8871 
#150-9448 
134-7396 
28-1205 
28-1231 
28-1231 
28-1231 
28-1231 
28-1231 
28-1231 
28-1231 
39-1277 
39-2018 
47-2373 
52-2602 
136-7460 
151-9472 
#28-1231 
#28-1231 
@28-1231 
28-1231 


#138-7689 
28-1231 
€28-1231 
#28-1231 
#28-1231 
#28-1231 
#28-1231 
#28-1231 
28-1231 
30-1277 
043-2211 
48-2403 
@53-2635 
0137-7643 
#152-9534 
28-1231 
28-1231 
28-1231 
286-1231 


CREATED BY MACRO ON 25-APR-85 AT 16:39 


28-1231 
€28-1231 
28-1231 
@28-1231 
28-1231 
$28-1231 
28-1231 
28-1231 
#30-1285 
@39-2008 
044-2253 
047-2373 
049-2476 
52-2602 
@54-2703 
0136-7460 
#138-7705 
#£41-7792 
#243-8135 
0145-8791 
146-8951 
#148 -9286 
151-9472 


145-8778 


#31-1309 
047-2379 
52-2606 
136-7620 
#141-7874 
#146 -8957 
#151-9495 
139-7739 
28-1231 
28-1231 
28-1231 
28-1231 
28-1231 
28-1231 
28-1231 
28-1231 
#31-1304 
43-2211 
48-2403 
53-2635 
137-7643 
152-9534 
28-1231 
#28-1231 
28-1231 
#28-1231 


PAGE 26 
CREF 03.00 
28-1231 28-1231 
26-1231 28-1231 
26-1231 28-1231 
28-1231 28-1231 
28-1231 28-1231 
28-1231 28-1231 
28-1231 28-1231 
28-1231 28-1231 
30-1285 31-1304 
39-2008 39-2018 
44-2253 45-2276 
47-2373 47-2379 
49-2476 50-2499 
52-2602 52-2606 
54-2703 75-3959 
136-7460 136-7620 
138-7705 139-7723 
141-7792 141-7874 
143-8135 144-8150 
145-8791 145-8799 
146-8951 146-8957 
148-9286 149-9298 
151-9472 9151-9495 
145-8778 145-8791 
31-1309 43-2222 
47-2379 48-2415 
52-2606 53-2649 
136-7620 137-7652 
141-7874 142-7999 
146-8957 147-9102 
151-9495 152-9552 
#140-7770 144-8626 
28-1231 28-1231 
#28-1231 28-1231 
#28-1231 26-1231 
#28-1231 28-1231 
28-1231 28-1231 
#28-1231 28-1231 
#28-1231 28-1231 
#28-1231 28-1231 
31-1304 31-1304 
044-2249 44-2249 
049-2439 49-2439 
54-2671 54-2671 
@138-7670 138-7670 
153-9584 153-9584 
28-1231 28-1231 
26-1231 28-1231 
28-1231 28-1231 
26-1231 28-1231 





149-9298 
151-9495 


145-8791 


43-2222 
48-2415 
53-2649 
137-7652 
142-7999 
147-9102 
152-9552 
145-8694 
28-1231 
28-1231 
28-1231 
28-1231 
28-1231 
#28-1231 
#28-1231 
#28-1231 
#33-1803 
45-2276 
#50 -2499 
0134-7394 
139-7723 


28-1231 
28-1231 
28-1231 
2°-1231 


#28-1231 
#28-1231 
28-1231 
#28-1231 
28-1231 
28-1231 
€28-1231 
29-1251 
31-1304 
43-2211 
45-2285 
€48-2403 
50-2514 
53-2635 
0134-7394 
137-7643 
139-7742 
#142-7891 
#144 -8650 
145-8848 
147-8974 
149-9417 
152-9534 


145-8795 


044-2253 
049-2476 
54-2703 
#138-7705 
143-8135 
#148 -9286 
153-9585 
#145 -8697 
28-1231 
28-1231 
28-1231 
28-1231 
28-1231 
28-1231 
28-1231 
28-1231 
33-1803 
45-2276 
50-2499 
134-7394 
139-7723 


#28-1231 
28-1231 
28-1231 
28-1231 


28-1231 
28-1231 
28-1231 
28-1231 
28-1231 
28-1231 
28-1231 
29-1251 
31-1304 
43-2211 
45-2285 
48-2403 
50-2514 
53-2635 
134-7394 
137-7643 
139-7742 
142-7891 
144-8650 
145-8848 
147-8974 
149-9417 
152-9534 


145-8799 


135-7417 
#140-7761 


28-1231 
28-1231 
28-1231 
28-1231 





28-1231 
#28-1231 
28-1231 
28-1231 
28-1231 
€28-1231 
28-1231 
#30-1277 
31-1309 
43-2222 
046-2314 
048-2415 
#51-2539 
53-2649 
#134-7400 
137-7652 
140-7761 
142-7999 
#145 -8684 
145-8871 
#147-9102 
#150-9429 
152-9552 


#145 -8848 


045-2285 
@50-2514 
134-7400 
139-7742 
#144 -8650 
0149-9417 


146-8901 
28-1231 
28-1231 
28-1231 
28-1231 
28-1231 
28-1231 
28-1231 
29-1251 
39-2008 
46-2314 
51-2539 
135-7417 
140-7761 


28-1231 
€28-1231 
#28-1231 
28-1231 








SEQ 0270 


28-1231 
28-1231 
28-1231 
28-1231 
28-1231 
28-1231 
28-1231 
30-1277 
31-1309 
43-2222 
46-2314 
48-2415 
51-2539 
53-2649 
134-7400 
137-7652 
140-7761 
142-7999 
145-8684 
145-8871 
147-9102 
150-9429 
152-9552 


145-8848 


45-2285 
50-2514 
134-7400 
139-7742 
144-8650 
149-9417 


28-1231 
28-1231 
28-1231 
28-1231 
28-1231 
#28-1231 
#28-1231 
@30-1277 
@39-2018 
47-2373 
52-2602 
#136-7460 
#151-9472 


28-1231 
28-1231 
28-1231 
28-1231 








CVOHCDO 


MACRO CROSS REFERENCE 


MACRO NAME 


REFERENCES 


28-1231 
#28-1231 
$28-1231 
28-1231 
€28-1231 
€29-1251 
29-1251 
€29-1251 
#39-2018 
043-2216 
43-2219 
43-2220 
44-2251 
45-2279 
@45-2282 
$46 -2320 
€46-2320 
046-2332 
46-2345 
046-2347 
@46-2351 
047-2375 
47-2376 
47-2377 
@48-2407 
048-2408 
048-2408 
048-2411 
48-2413 
049-2442 
049-2445 
49-2445 
49-2472 
50-2501 
#50-2508 
#51-2542 


75-3978 


28-1231 


#75-3978 
75-3978 


CREATED BY MACRO ON 25-APR-85 AT 16:39 


#28-1231 
28-1231 
28-1231 
#28-1231 
28-1231 
#29-1251 
#29-1251 
30-1277 


@86-4593 





PAGE 27 

CREF 03.00 
#28-1231 28-1231 
26-1231 28-1231 
28-1231 28-1231 
286-1231 28-1231 
26-1231 28-1231 
29-1251 29-1251 
29-1251 29-1251 
30-1277 31-1304 
39-2018 43-2216 
@43-2219 43-2219 
#43-2220 43-2220 
044-2251 44-2251 
44-2251 44-2253 
45-2279 45-2279 
45-2282 45-2282 
#46 -2320 46-2320 
#46-2332 46-2332 
#46 -2332 46-2332 
046-2345 46-2345 
46-2347 046-2347 
047-2375 47-2375 
@47-2376 47-2376 
47-2376 47-2377 
47-2377 47-2377 
48-2407 48-2407 
#48 -2408 48-2408 
@48-2411 48-2411 
048-2411 48-2411 
48-2413 48-2413 
49-2442 49-2442 
€49-2445 49-2445 
49-2472 49-2472 
49-2476  #50-2501 
50-2501 50-2501 
50-2508 50-2508 
#51-2542 51-2542 
51-2550 #51-2550 
51-2554 51-2554 
51-2573 51-2573 
51-2573 51-2573 
#52 -2604 52-2604 
52-2604 52-2604 
53-2638 53-2638 
53-2643 53-2643 
53-2647 53-2647 
054-2674 54-2674 
54-2695 54-2695 
54-2699 54-2699 
54-2699 54-2699 
#75-3959 75-3959 
75-3978 75-3978 
#86 -4593 86-4593 





#28-1231 


#86 -4593 


@75-3978 
86-4593 


#28-1231 
28-1231 
28-1231 
286-1231 
28-1231 
29-1251 
29-1251 

#39-2008 

#43-2216 
43-2219 
43-2220 
44-2251 

#45-2279 

45-2282 
45-2282 

#46 -2320 


86-4593 





086-4593 









SEQ 0271 








CVDHCDO 





MACRO CROSS REFERENCE 


MACRO NAME 


REFERENCES 


86-4593 
086-4626 
086-4634 

88-4766 
#89-4828 

89-4830 
#92-4999 

92-4999 
#98-5415 
#128-7051 
#136-7462 
@136-7468 


#139-7731 
#139-7742 
141-7862 


145-8717 
145-8718 
145-8718 
145-8728 
145-8778 
145-8791 
145-8799 
145-8831 
145-8848 
145-8865 
#146 -8899 
146-8919 
146-8951 
146-8957 
147-8996 
147-8997 
147-9030 
#147 -9099 
148-9137 
148-9138 
148-9279 
149-9321 
149-9322 


#86 -4626 
86 -4626 
#86 -4634 
@88-4783 
89-4828 
#89-4831 
92-4999 
92-4999 
98-5415 
128-7051 
136-7462 
136-7468 
136-7472 
#136-7489 
136-7489 
136-7556 
136-7604 
#138-7689 
139-7731 
139-7742 
#141-7862 
#141-7866 
142-7916 
#142-7999 
143-8042 
#144-8321 
144-8615 
144-8626 
145-8695 
#145-8717 
#145-8718 
145-8718 
145-8728 
145-8778 
145-8791 
@145-8799 


0149-9322 


CREATED BY MACRO ON 25-APR-85 AT 16: 


149-9321 
149-9322 


39 PAGE 28 


CREF 03.00 
86-4626 086-4626 
86-4626 086-4626 

#86 -4634 86-4634 
#89-4828 89-4828 
#89-4830 89-4830 
#90 -4888 90-4888 
92-4999  #92-4999 
94-5120 #94-5134 
99-5462 100-5531 
134-7396 134-7396 
136-7463 136-7465 
136-7468 136-7469 
136-7475 136-7479 
@136-7489 136-7489 
136-7536 136-7555 
136-7604 136-7604 
#136-7620 136-7620 
#138-7705 138-7705 
139-7731 139-7731 
140-7770 140-7770 
#141-7862 141-7862 
@141-7874 141-7874 
142-7916 142-7916 
143-8042 143-8042 
143-8042 143-8042 
@144-8321 144-8321 
144-8615 144-8615 
144-8626 144-8650 
145-8696 145-8697 
@145-8717 145-8717 
#145-8718 145-8718 
#145-8728 145-8728 
145-8778 145-8778 
145-8791 145-8791 
145-8791 145-8791 
145-8799 145-8799 
145-6831 145-8831 
145-8848 145-8848 
145-8865 145-8871 
146-8900 146-8901 
146-8919 146-8919 
@146-8951 146-8951 
147-8996 147-8996 
@147-8997 0147-8997 
147-8997 147-8997 
147-9030 147-9098 
147-9102 148-9137 
@148-9137 148-9137 
0148-9138 148-9138 
148-9280 148-9280 
149-9321 149-9321 
0149-9322 149-9322 


86-4626 
86-4626 
86-4634 
89-4828 
#89-4830 
#91-4941 
92-4999 
94-5134 
100-5531 
134-7396 
136-7465 
136-7469 
136-7479 
#136-7489 
136-7555 
#136-7604 
#137-7652 
#139-7731 
139-7731 
140-7770 
@141-7862 
#142-7916 


145-8697 
@145-8717 
#145-8718 
@145-8728 
#145-8778 
145-8791 
145-8799 
145-8831 


0149-9322 


#139-7731 
#139-7739 
#140-7775 
141-7862 
142-7916 
142-7916 
143-8042 
143-8125 
#144 -8615 
144-8615 
#145 -8694 
145-8697 
145-8717 
145-8718 
145-8728 
145-8778 
145-8791 
145-8799 
145-8831 
145-8848 


149-9322 





@136-7604 


#145-8717 
145-8718 
145-8728 
145-8778 
145-8791 
#145-8799 


0149-9321 
0149-9322 





139-7731 
139-7739 


145-8717 
145-8717 
145-8718 
145-8728 
145-8778 
145-8791 
145-8799 

145-8831 

145-8848 

@145 -8864 

146 -8898 

146-8919 
146-8919 
146-8951 


149-9322 






SEQ 0272 


89-4828 
89-4830 
#92 -4999 
#92 -4999 
97-5359 
102-5€31 
136-7462 
136-7466 
136-7471 


138-7689 
139-7731 
139-7739 

#141-7862 

@141-7864 
142-7916 

@142-7990 
143-8042 

143-8135 


145-8718 
143-8728 
145-8778 
145-8791 
145-8799 
145-8831 





CvOHCDO 





MACRO CROSS REFERENCE 


MACRO NAME 


MSGNLS 
MSGNTA 


MSGNTE 


MSHAPT 
MSHNAP 
MSINCR 


r-— 





REFERENCES 


149-9322 
150-9443 
151-9472 
151-9486 
151-9490 
151-9495 
152-9547 
153-9584 
@75-3959 
#146 -8951 
@30-1285 
46-2351 
51-2581 
#136 -7620 
@141-7874 
#146 -8957 
151-9495 
#141-7792 
#146 -8888 
28-1231 
28-1231 
#28-1205 
043-2211 
44-2249 
045-2285 
047-2373 
48-2403 
49-2439 
#50-2508 
#51-2581 
53-2635 
054-2695 
086 -4634 
#94-5120 
0134-7394 
#136-7460 
#136 -7536 
#138-7670 
#139-7731 
141-7792 
€142-7891 
143-8017 
144-8150 
145 -8684 
145-8778 
145-8848 
#146 -8898 
147-8974 
#148-9117 
$149-9298 
#150 -9429 
151-9472 





149-9322 
@150-9443 
@151-9484 


138-7670 
#139-7742 
141-7792 
142-7891 
143-8017 
#144-8321 
145-8684 
145-8791 
#145 -8864 
#146-8899 
0147-8974 
148-9117 
#149-9298 
#150-9429 
151-9472 





CREATED BY MACRO ON 25-APR-85 AT 16:39 


#149-9412 
150-9443 
151-9484 
151-9488 
151-9490 
152-9534 
152-9547 
153-9584 

145-8778 


#31-1309 
@47-2379 
52-2606 
137-7652 
142-7999 
147-9102 
152-9552 
142-7891 
147-8974 


30-1277 
43-2211 
€44-2251 
046-2314 
47-2373 
€48-2407 
049-2445 
#51-2539 
52-2602 
53-2643 
#54-2703 
088-4783 
96-5270 
134-7394 
136-7460 
#136 -7604 
138-7670 
#140-7761 
141-7792 
142-7891 
#143-8042 
#144-8615 
#145 -8694 
145-8791 
145-8865 
146-8901 
147-8974 
148-9117 
149-9298 
150-9429 
152-9534 


CREF 


149-9412 
150-9443 
151-9484 
151-9488 
#151-9492 
#152-9545 
#152-9549 
153-9584 
145-8778 


31-1309 
47-2379 
52-2606 
137-7652 
142-7999 
147-9102 
152-9552 
142-7891 
147-8974 


#30-1277 
43-2211 
044 -2253 


#138-7683 
#140-7761 
#141-7862 
#142-7916 
#143-8125 
0144-8619 
#145-8695 

145-8791 
145-8871 
#146-8919 

147-8974 

148-9117 
149-9298 
#150-9429 
#152-9534 


03.00 


#149-9412 
150-9443 
151-9484 
151-9488 
151-9492 
152-9545 
152-9549 
153-9584 

145-8791 


043-2222 
048-2415 
53-2649 
#138-7705 
147-8135 
#148 -9286 


143-8017 
#148-9117 


30-1277 
43-2216 
45-2276 

46-2314 
047-2375 
048-2411 
049-2476 

51-2539 

52-2602 
@53-2649 
75-3959 
089-4830 
#98-5415 
#134-7400 
136-7465 
0137-7643 
138-7689 

140-7761 
0141-7864 
#142 -7990 
#143-8135 
#144 -8626 
#145 -8697 
#145 -8799 
0146 -8888 
146-8951 
147-8996 

148-9117 

149-9298 

150-9429 

152-9534 


149-9412 
150-9443 
151-9484 
151-9488 
151-9492 
152-9545 
152-9549 


145-8791 


43-2222 
48-2415 
53-2649 
138-7705 
143-8135 
148-9286 


143-8017 
148-9117 


30-1277 
43-2219 
45-2276 
#46 -2320 
047-2376 
#48 -2413 
#50 -2499 

51-2539 
52-2604 
054-2671 
#75-3959 
@89-4831 
#99 -S5462 
@135-7417 
0136-7468 
0137-7643 
#138-7705 

140-7761 
0141-7866 
#142-7999 
#144-8150 
#144-8650 
#145-8717 
#145-8799 
146-8888 
#146-8951 
147-8997 
0148-9137 

149-9298 

150-9429 

152-9534 


ESE Ny ee a ES 
PAGE 29 


0149-9417 
150-9443 
151-9486 
151-9488 
151-9492 
152-9545 
152-9549 


#145-8799 


044-2253 
049-2476 
54-2703 
#139-7742 
#144 -8650 
0149-9417 


#144-8150 
0149-9298 


31-1304 
43-2220 
45-2276 
46-2332 
047-2377 
048-2415 
@50-2499 
51-2542 
52-2606 
54-2671 
75-3959 
#90-4888 
#100-5531 
#135-7417 
0136-7471 
137-7643 
#139-7723 
#140-7775 
#141-7874 
#143-8017 
#144-8150 
145-8684 
#145-8718 
145-8799 


#148-9138 
#149-9321 
#150-9443 


149-9417 
150-9448 
151-9486 
#151-9490 
151-9492 
#152-9547 
#152-9552 


145-8799 


44-2253 
49-2476 
54-2703 
139-7742 
144-8650 
149-9417 


144-8150 
149-9298 


#31-1304 


091-4941 
#101-5585 
135-7417 
#136-7475 
137-7643 
139-7723 
#141-7792 
#142-7891 
#143-8017 
144-8150 
145-8684 
#145-8728 
#145-8831 
0146-8888 
#146-8957 
#147-9099 
#148-9279 
#149-9322 
#150-9448 





150-9443 
150-9448 
151-9486 
151-9490 
151-9492 
152-9547 
152-9552 


145-8848 


045-2285 
#50-2514 
134-7400 
140-7775 
#145 -8871 
#150-9448 


#145 -8684 
150-9429 


31-1304 
044-2249 
45-2279 
46-2347 
048-2403 
049-2439 

50-2499 
#51-2554 
53-2635 

54-2671 
086-4593 
#91-4960 
#102 -5631 

135-7417 
136-7479 
137-7652 

139-7723 
#141-7792 
#142-7891 

143-8017 
#144-8150 

145-8684 
0145-8778 
#145 -8848 

146-8888 
0147-8974 
#147-9102 
#148 -9280 
149-9412 
151-9472 








SEQ 0273 


150-9443 
#151-9472 
151-9486 
151-9490 
#151-9495 
152-9547 
153-9584 


145-8848 


0136-7489 
#138-7670 
139-7723 
141-7792 
142-7891 
143-8017 
144-8150 
#145-8684 
#145-8778 
#145-8848 
146-8888 
0147-8974 
#148-9117 
#148-9286 
0149-9417 
#151-9472 








CvOHCODO 





MACRO CROSS REFERENCE 


MACRO NAME 
MSLORO 


MSMCHI 
MSMCLO 
msPOP 


MSPRIN 


MSPUSH 


MSPUT 


REFERENCES 


136-7462 
@136-7555 
#145 -8865 
149-9412 
@28-1183 
@28-1183 
@30-1285 
@46-2351 
@51-2581 
@135-7423 
140-7775 
145-8871 
150-9448 
@43-2216 
045-2282 
@47-2375 
048-2411 
#50-2501 
#51-2573 
054-2674 
086 - 4626 
139-7731 
@28-1205 
@45-2276 
@50-2499 
134-7394 
@139-7723 
#144 -8150 
149-9298 
043-2216 
44-2251 
45-2282 





136-7462 
136-7555 
145-8865 
149-9412 
28-1183 
28-1183 
30-1285 
46-2351 
51-2581 
135-7423 
140-7775 
145-8871 
150-9448 
43-2216 
45-2282 
47-2375 
48-2411 
50-2501 
51-2573 
54-2674 
86 -4626 
139-7731 
26-1205 
45-2276 
50-2499 
134-7394 
139-7723 
144-8150 
149-9298 
43-2216 
44-2251 
#46 -2320 


#147-8997 


136-7465 
@141-7864 
#147 -9098 


31-1309 
@47-2379 
52-2606 
#136 -7620 
#141-7874 
#146 -8957 
151-9495 
43-2219 
46-2320 
047-2376 
@48-2413 
#50-2508 
52-2604 
@54-2695 
086-4634 
144-8615 
#30-1277 
46-2314 
#51-2539 
#135-7417 
140-7761 
#145 -8684 
#150-9429 
43-2216 
44-2251 
46-2320 
46-2345 
47-2375 
€48-2407 
048-2411 
49-2442 
49-2472 
#51-2542 
51-2554 
52-2604 
53-2643 
54-2695 
75-3978 
86-4626 
92-4999 
136-7604 
142-7916 
144-8615 
145-8718 
#146 -8919 
147-8997 


PAGE 30 
CREF 03.00 
136-7465 0136-7468 
141-7864 142-7990 
147-9098 147-9099 
31-1309 43-2222 
47-2379 048-2415 
52-2606 53-2649 
136-7620 137-7652 
141-7874 142-7999 
146-8957 147-9102 
151-9495 152-9552 
43-2219 43-2220 
46-2320 46-2332 
47-2376 47-2377 
48-2413 49-2442 
50-2508 51-2542 
52-2604 53-2638 
54-2695 54-2699 
86-4634 89-4830 
144-8615 145-8728 
30-1277 31-1304 
46-2314 047-2373 
51-2539 52-2602 
135-7417 136-7460 
140-7761 141-7792 
145-8684 146-8888 
150-9429 151-9472 
#43-2219 43-2219 
45-2279 45-2279 
46 -2320 46-2320 
46-2345 46-2345 
47-2375 47-2376 
48-2407 48-2407 
48-2411 48-2411 
49-2442 49-2442 
#50-2501 50-2501 
51-2542 51-2542 
#51-2573 51-2573 
52-2604 52-2604 
53-2643 53-2647 
534-2695 54-2699 
75-3978 86-4593 
86 -4626 86-4626 
92-4999 92-4999 
136-7604 136-7604 
142-7916 143-8042 
144-8615 145-8717 
145-8718 145-8728 
146-8919 146-8919 
147-8997 147-8997 


136-7468 
142-7990 
147-9099 


43-2222 
48-2415 
53-2649 
137-7652 
142-7999 
147-9102 
152-9552 
43-2220 
46 -2332 
47-2377 
49-2442 
51-2542 
53-2638 
54-2699 
89-4830 
145-8728 
31-1304 
47-2373 
52-2602 
136-7460 
141-7792 
146-8888 
151-9472 
43-2219 
45-2279 
46-2320 
46-2345 
47-2376 
48-2407 
48-2411 
049-2445 
50-2501 


139-7731 
143-8042 
145-8717 
145-8728 
146-8919 
147-8997 


SE | 
CREATED BY MACRO ON 25-APR-85 AT 16:39 


136-7471 
143-8125 
148-9279 


044-2253 
049-2476 
@54-2703 
138-7705 
143-8135 
#148 -9286 
#153-9585 
044-2251 
€46-2345 
48-2407 
049-2445 
51-2550 
53-2643 
75-3978 
#92-4999 
145-8831 
043-2211 
048-2403 
53-2635 
#137-7643 
#142-7891 
147-8974 
152-9534 
43-2220 
45-2279 
$46 -2332 
046-2347 
47-2376 
48-2407 
48-2411 
49-2445 
50-2501 
#51-2550 
51-2573 
53-2638 
53-2647 
54-2699 
86-4593 
86-4634 
136-7489 
139-7731 
143-8042 
145-8717 
145-8728 
$147 -8996 
148-9137 


136-7471 
143-8125 
148-9279 


44-2253 
49-2476 
54-2703 
138-7705 
143-8135 
148-9286 
153-9585 
44-2251 
46-2345 
48-2407 
49-2445 
51-2550 
53-2643 
75-3978 
92-4999 
145-8831 
43-2211 
48-2403 
53-2635 
137-7643 
142-7891 
147-8974 
152-9534 
43-2220 
45-2282 
46-2332 
46-2347 
47-2376 
048-2408 
048-2413 
49-2445 
#50-2508 
51-2550 
51-2573 
53-2638 
054-2674 
54-2699 
086 -4626 
86 -4634 
136-7489 
139-7731 
143-8042 
145-8717 
145-8728 
147-8996 
148-9137 





136-7479 
145 -8864 
#148 -9280 


45-2285 
#50-2514 
134-7400 
#139-7742 
#144 -8650 
#149-9417 


45-2279 
€46-2347 
048-2408 
049-2472 
#51-2554 
53-2647 
086-4593 
#136-7604 
#146 -8919 
044-2249 
049-2439 
54-2671 
138-7670 
143-8017 
148-9117 


43-2220 
45-2282 
46-2332 
46-2347 
047-2377 
48-2408 
48-2413 
49-2445 
50-2508 
51-2550 
51-2573 
53-2638 
54-2674 
54-2699 
86-4626 
#89-4830 
136-7489 
139-7731 
143-8042 
145-8717 
145-8831 
147-8996 
148-9137 








SEQ 0274 


136-7479 
145-8864 
148-9280 


45-2285 
50-2514 
134-7400 
139-7742 
144-8650 
149-9417 


45-2279 
46-2347 
48-2408 
49-2472 
51-2554 
53-2647 
86-4593 
136-7604 
146-8919 
44-2249 
49-2439 
54-2671 
138-7670 
143-8017 
148-9117 


50-2508 


#142-7916 
#144-8615 
#145-8718 
145-8831 
147-8996 
148-9137 



























CvOHCOO CREATED BY MACRO ON 25-APR-85 AT 16:39 PAGE 31 
SEQ 0275 
MACRO CROSS REFERENCE CREF 03.00 
MACRO NAME REFERENCES 
148-9137 148-9138 148-9138 148-9138 148-9138 148-9138 149-9321 149-9321 149-9321 149-9321 
149-9321 149-9322 149-9322 149-9322 149-9322 149-9322 
MSPUT1L @43-2216 43-2216 43-2216 43-2216 043-2219 43-2219 43-2219 43-2219 43-2220 43-2220 
43-2220 43-2220 044-2251 044-2251 044-2251 44-2251 44-2251 44-2251 45-2279 45-2279 
45-2279 45-2279 45-2279 45-2279 45-2282 045-2282 45-2282 45-2282 45-2282 45-2282 
@46-2320 46-2320 46-2320 46-2320 46-2320 46 -2320 46-2320 46-2320 46-2332 46-2332 
046-2332 46-2332 46-2332 46-2332 46-2332 46-2332 046-2345 046-2345 046-2345 46-2345 
46-2345 46-2345 46-2345 46-2345 046-2347 046-2347 046-2347 46-2347 46-2347 46-2347 
@47-2375 47-2375 47-2375 47-2375 47-2375 47-2375 47-2376 47-2376 47-2376 47-2376 
47-2376 47-2376 47-2377 047-2377 047-2377 47-2377 47-2377 47-2377 48-2407 48-2407 
@48-2407 48-2407 48-2407 48-2407 48-2407 48-2407 48-2408 48-2408 048-2408 48-2408 
48-2408 48-2408 48-2408 48-2408 048-2411 48-2411 048-2411 48-2411 48-2411 48-2411 
48-2411 48-2411 48-2413 048-2413 048-2413 48-2413 48-2413 48-2413 49-2442 49-2442 
049-2442 49-2442 49-2442 49-2442 049-2445 049-2445 049-2445 49-2445 49-2445 49-2445 
€49-2472 49-2472 049-2472 49-2472 49-2472 49-2472 50-2501 50-2501  #50-2501 50-2501 
50-2501 50-2501 50-2508 50-2508 50-2508 50-2508 50-2508 50-2508 50-2508 50-2508 
#51-2542 51-2542 51-2542 51-2542 51-2542 51-2542 51-2550 51-2550 51-2550 51-2550 
#51-2554 51-2554 51-2554 51-2554 51-2554 51-2554 51-2573 51-2573 51-2573 51-2573 
@51-2573 51-2573 51-2573 51-2573 51-2573 51-2573 51-2573 51-2573 51-2573 51-2573 
52-2604 @52-2604 52-2604 52-2604 52-2604 52-2604 52-2604 52-2604 53-2638 53-2638 
53-2638 53-2638 53-2638 53-2638 953-2643 53-2643 53-2643 53-2643 53-2643 53-2643 
@53-2647 53-2647 53-2647 53-2647 54-2674 54-2674 54-2674 54-2674 54-2674 534-2674 
954-2695 54-2695 54-2695 34-2695 54-2699 54-2699 54-2699 54-2699  #54.2699 54-2699 
54-2699 54-2699 54-2699 34-2699 75-3978 75-3978 9475-3978 75-3978 75-3978 75-3978 
@86-4593 86-4593 86-4593 86-4593 86-4626 86-4626 86-4626 86-4626 086-4626 086-4626 
#86 - 4626 86 -4626 86-4626 86 -4626 86-4626 86 -4626 86-4626 86-4626 86-4634 86-4634 
86-4634 86-4634 89-4830 89-4830 89-4830 89-4830 92-4999 92-4999 #92-4999  #92-4999 
92-4999 92-4999 92-4999 92-4999 136-7489 136-7489 136-7489 0136-7489 136-7489 136-7489 
136-7489 136-7489 136-7604 136-7604 136-7604 136-7604 136-7604 136-7604 139-7731 139-7731 
@139-7731 139-7731 139-7731 139-7731 142-7916 142-7916 142-7916 142-7916 142-7916 142-7916 
142-7916 142-7916 143-8042 143-8042 143-8042 143-8042 143-8042 143-8042 143-8042 143-8042 
@144-8615 144-8615 144-8615 144-8615 144-8615 144-8615 144-8615 144-8615 145-8717 145-8717 
@145-8717 @145-8717 145-8717 145-8717 145-8717 145-8717 145-8718 145-8718 145-8718 145-8718 
145-8718 145-8718 145-8718 145-8718 145-8728 145-8728 145-8728 145-8728 145-8728 145-8728 
#145-8831 145-8831 145-8831 145-8831 145-8831 145-8831 146-8919 146-8919 146-8919 146-8919 
146-8919 146-8919 147-8996 147-8996 147-8996 147-8996 147-8996 147-8996 147-8996 147-8996 
0147-8997 147-8997 147-8997 147-8997 147-8997 147-8997 147-8997 147-8997 0148-9137 148-9137 
148-9137 148-9137 148-9137 148-9137 148-9137 148-9137 148-9138 148-9138 148-9138 #148-9138 
148-9138 148-9138 148-9138 148-9138 149-9321 149-9321 149-9321 149-9321 149-9321 149-9321 
149-9321 149-9321 149-9322 149-9322 149-9322 149-9322 149-9322 149-9322 149-9322 149-9322 
MSRADI #75-3959 75-3959 145-8778 145-8778 145-8791 145-8791 145-8799 145-8799 145-8848 145-8848 
@146-8951 146-8951 151-9484 151-9484 151-9486 151-9486 151-9488 151-9488 151-9490 151-9490 
@151-9492 151-9492 152-9545 152-9545 152-9547 152-9547 152-9549 152-9549 
M$RNRO @136-7479 136-7479 136-7555 136-7555 144-8321 144-8321 
MSSETS #28-1205 28-1205 30-1277 30-1277 31-1304 31-1304 43-2211 43-2211 44-2249 44-2249 
45-2276 45-2276 46-2314 46-2314 47-2373 47-2373 048-2403 48-2403 49-2439 49-2439 
#50-2499 50-2499 51-2539 51-2539 52-2602 52-2602 53-2635 53-2635 54-2671 54-2671 
9134-7394 134-7394 135-7417 135-7417 @136-7460 136-7460 137-7643 137-7643 138-7670 138-7670 
@139-7723 139-7723 140-7761 140-7761 141-7792 141-7792 142-7891 142-7891 143-8017 143-8017 
@144-8150 144-8150 145-8684 145-8684 146-8888 146-8888 147-8974 147-8974 148-9117 148-9117 
#149-9298 149-9298 150-9429 150-9429 151-9472 151-9472 152-9534 152-9534 
MsSVC 043-2216 43-2216 43-2219 43-2219 43-2220 43-2220 43-2222 43-2222 44-2251 44-2251 

















CvDHCDO 





MACRO CROSS REFERENCE 


MACRO NAME 


MSTLAB 


MSTSTL 


—— 


REFERENCES 


044-2253 
46-2332 
047-2376 
048-2411 
049-2472 
51-2542 
52-2604 
#53-2649 
62-3263 
086-4034 
89-4831 
94-5120 
99-5462 
134-7400 
136-7475 
#136 -7604 
138-7705 
141-7862 
142-7990 
144-8321 
145-8694 
145-8728 
145-8848 
146-8899 
147-8996 
148-9137 
149-9321 
€43-2216 
046-2332 
€48-2411 
51-2542 
#53-2649 
$86 - 4634 
#94-5120 
#134-7400 
136-7604 
141-7864 
144-8615 
145-8778 
#146 -8901 
#148-9138 
#43-2216 
044-2253 
046-2332 
047-2376 
048-2411 
049-2472 
#51-2542 
#52-2604 
#53-2649 
62-3263 
$86 - 4634 





#145-8778 
@145-8864 
#146-8901 
#147-8997 
#148-9138 
149-9322 
€43-2219 
#46 -2345 
#48 -2413 
#51-2550 
54-2674 
088 -4766 
@94-5134 
136-7462 
#136-7620 
#141-7866 
#144-8619 
#145-8791 
#146-8919 
#148-9279 
43-2216 
44-2253 
46-2332 
47-2376 
48-2411 
49-2472 
51-2542 
52-2604 
53-2649 
62-3263 
86 -4634 


CREATED BY MACRO ON 25-APR-85 AT 16:39 


045-2279 
046-2745 
047-2377 
048-2413 
049-2476 
#51-2550 
52-2606 
054-2674 
@75-3959 
088-4766 
90-4888 
94-5134 
100-5531 
136-7462 
136-7479 
136-7620 
139-7731 
141-7864 
142-7999 
144-8615 
145-8695 
145-8778 
145-8864 
146-8901 
147-8997 
148-9138 
149-9322 
€43-2220 
046-2347 
048-2415 
51-2554 
54-2695 
@58-4783 
#96-5270 
136-7465 
137-7652 
#141-7874 
#144 -8626 
#145-8799 
#146-8951 
#148 -9280 
€43-2219 
€45-2279 
€46-2345 
047-2377 
048-2413 
049-2476 
#51-2550 
52-2606 
054-2674 
#75-3959 
088-4766 


PAGE 32 
CREF 03.00 
45-2279 045-2282 
46-2345 46-2347 
47-2377 47-2379 
48-2413 048-2415 
49-2476 950-2501 
51-2550 51-2554 
52-2606 53-2638 
54-2674 54-2695 
75-3959 75-3978 
88-4766 88-4783 
#91-4941 91-4941 
#96 -5270 96-5270 
#101-5585 101-5585 
136-7462 136-7465 
136-7479 136-7489 
136-7620 137-7652 
139-7731 139-7739 
@141-7866 141-7866 
#143-8042 143-8042 
144-8619 144-8619 
#145-8697 145-8697 
#145-8791 145-8791 
#145-8865 145-8865 
#146-8919 146-8919 
#147-9098 147-9098 
@148-9279 148-9279 
#149-9412 149-9412 
@43-2222 44-2251 
@46-2351 47-2375 
049-2442 049-2445 
#51-2573 51-2581 
#54-2699 54-2703 
089-4828 89-4830 
€97-5359 098-5415 
136-7468 136-7471 
#138-7683 138-7689 
#142-7916 142-7990 
#144-8650 145-8694 
#145-8831 145-8848 
146-8957 147-8996 
#148-9286 149-9321 
43-2219 43-2220 
45-2279 45-2282 
46-2345 46-2347 
47-2377 47-2379 
48-2413 48-2415 
49-2476 #50-2501 
51-2550 51-2554 
52-2606 53-2638 
54-2674 54-2695 
78-7959 75-3978 
86-4766 88-4783 


45-2282 
46-2347 
47-2379 
48-2415 
50-2501 
51-2554 
53-2638 
54-2695 
75-3978 
88-4783 
#91-4960 
#97-5359 
#102-5631 
136-7465 
136-7489 
137-7652 
#139-7742 
0141-7874 
#143-8125 
#144-8626 
#145-8717 
#145-8799 
#145-8871 
#146-8951 
#147-9099 
#148-9280 
0149-9417 
044-2253 
047-2376 
049-2472 
#52 -2604 
62-3263 
089-4831 
#99-5462 
136-7475 
#138-7705 
#142-7999 
#145-8695 
#145-8864 
0147-8997 
#149-9322 


45-2285 
46-2351 
048-2407 
049-2442 
50-2508 
51-2573 
53-2643 
054-2699 
086-4593 
89-4828 
91-4960 
97-5359 
102-5631 
0136-7468 
#136 -7536 
138-7683 
139-7742 
141-7874 
143-8125 
144-8626 
145-8717 
145-8799 
145-8871 
146-8951 
147-9099 
148-9280 
149-9417 
45-2279 
047-2377 
049-2476 
#52-2606 
#75-3959 
#90-4888 
#100-5531 
#136-7479 
139-7731 
#143 -8042 
#145 -8697 
#145 -8865 
#147-9098 
#149-9412 
€43-2222 
45-2285 
046-2351 
048-2407 
049-2442 
#50-2508 
#51-2573 
53-2643 
54-2699 
86-4593 
$89-4828 


45-2285 
46-2351 
48-2407 
49-2442 
50-2508 
51-2573 
53-2643 
54-2699 
86-4593 
089-4830 
#92 -4999 
#98-5415 
#128-7051 
136-7468 
136-7536 
138-7683 
#140-7770 
#142-7916 
#143-8135 
#144-8650 
#145-8718 
#145-8831 
0146-8898 
#146-8957 
#147-9102 
0148-9286 
150-9443 
#45-2282 
047-2379 
#50-2501 
53-2638 
#75-3978 
091-4941 
#101-5585 
#136-7489 
0139-7742 
#143-8125 
0145-8717 
#145-8871 
#147-9099 
0149-9417 
43-2222 
45-2285 
46-2351 
48-2407 
49-2442 
50-2508 
51-2573 
53-2643 
54-2699 
86-4593 
$89-4828 





46-2320 
047-2375 
048-2408 
049-2445 
#50-2514 
51-2581 
53-2647 
#54-2703 
086-4626 
89-4830 
92-4999 
98-5415 
128-7051 
0136-7471 
#136-7555 
#138-7689 
#140-7775 
142-7916 
143-8135 
144-8650 
145-8718 
145-8831 
146-8898 
146-8957 
147-9102 
148-9286 
#150-9448 
045-2285 
048-2407 
#50-2508 
53-2643 
$86-4593 
#91-4960 
#102-5631 
#136-7536 
#140-7775 
#143-8135 
#145-8718 
#146 -8898 
#147-9102 
150-9443 
044-2251 
46-2320 
$47-2375 
#48-2408 
049-2445 
#50-2514 
#51-2581 
@53-2647 
#54-2703 
$86 - 4626 
89-4828 








SEQ 0276 


46-2320 
47-2375 
48-2408 
49-2445 
50-2514 
51-2581 
53-2647 
54-2703 
86 -4626 
089-4831 
$94 -5120 
#99-S5462 
9134-7396 
136-7471 
136-7555 
138-7689 
140-7775 
#142-7990 
0144-8321 
#145-8694 
#145-8728 
0145-8848 
#146-8899 
147-8996 
#148-9137 
149-9321 
150-9448 
#46 -2320 
048-2408 
#50-2514 
#53 -2647 
086 -4626 
#92 -4999 
#128-7051 
#136-7555 
#141-7862 
0144-8321 
#145-8728 
#146-8899 
#148-9137 
#150-9448 
44-2251 
46-2320 
47-2375 
48-2408 
49-2445 
50-2514 
51-2581 
53-2647 
54-2703 
86 -4626 
#89 -4830 





M$WORD 


PASS 


POINTE 
PRINTB 


PRINTF 
PRINTX 


READEF 
SAVE 








CVDHCDO 


MACRO CROSS REFERENCE 


MACRO NAME REFERENCES 


89-4830 
92-4999 
98-S415 
128-7051 
136-7471 
136-7555 
138-7689 
141-7862 
#142-7990 
144-8321 
#145 -8694 
#145 -8728 
#145 -8848 


#145 -8791 
#145 -8848 
150-9443 
#151-9492 
#37-1922 
59-3027 
69-3567 
79-4194 
88-4802 
98-5422 
110-6035 
123-6800 
28-1212 
43-2216 
51-2542 
75-3978 
43-2220 
49-2472 


$28-1182 


089-4831 
#94-5120 
#99-5462 
#134-7400 
136-7475 
#136-7604 
#138-7705 
141-7862 
142-7990 
144-8321 
145-8694 
145-8728 
145-8848 
146-8899 
147-8996 
148-9137 
149-9321 
#150-9448 
28-1231 
29-1251 
89-4828 
141-7862 
145-8791 
145-8848 
150-9443 
151-9492 
43-2221 
60-3064 
70-3603 
80-4252 
89-4833 
99-5464 
112-6156 
124-6891 


142-7916 
28-1183 


CREATED BY MACRO ON 25-APR-85 AT 16:39 


89-4831 
94-5120 
99-5462 
134-7400 
136-7475 
136-7604 
138-7705 
0141-7864 
#142-7999 
0144-8615 
145-8695 
#145-8778 
#145 -8864 
146-8901 
#147-8997 
#148-9138 
#149-9322 
150-9448 
#29-1251 
29-1251 
#134 -7396 
141-7862 
#145-8791 
#146 -8898 
#151-9484 
#152-9545 
45-2284 
61-3203 
71-3677 
81-4329 
90-4891 
100-5541 
113-6210 
125 -6936 


44-2251 
53-2638 
86-4626 
46-2345 
51-2550 
136-7468 
45-2277 
61-3102 
71-3648 
81-4286 
90-4866 
100-5492 
113-6183 
125-6922 
143-8042 


PAGE 33 
CREF 03.00 
#90 -4888 90-4888 
094-5134 94-5134 
#100-5531 100-5531 
0136-7462 136-7462 
136-7479 136-7479 
136-7620 136-7620 
#139-7731 139-7731 
141-7864 141-7866 
142-7999 143-8042 
144-8615 144-8619 
145-8695 145-8697 
145-8778 145-8791 
145-8864 145-8865 
146-8901 146-8919 
147-8997 147-9098 
148-9138 148-9279 
149-9322 149-9412 
29-1251 29-1251 
29-1251 75-3959 
134-7396 138-7689 
144-8626 145-8694 
145-8791 145-8799 
146-8901 146-8951 
151-9484 151-9486 
152-9545 152-9547 
46-2350 51-2580 
62-3288 63-336. 
72-3759 73-3799 
82-4360 83-4431 
91-4965 92-5000 
101-5588 102-5634 
114-6264 115-6344 
126-6976 127-7015 
45-2279 45-2282 
53-2643 $3-2647 
86 -4634 89-4830 
46-2347 47-2376 
51-2554 51-2573 
136-7471 
46-2315 51-2540 
62-3238 63-3320 
72-3712 73-3781 
82-4356 83-4393 
91-4921 92-4991 
101-5570 102-5615 
114-6237 115-6300 
126-6963 127-7002 
145-8717 145-8718 





$91-4941 
#96 -5270 
#101-5585 
136-7465 
#136-7489 
137-7652 
139-7742 
141-7866 
143-8042 
144-8619 
145-8697 
145-8791 
145-8865 
146-8919 
147-9098 
148-9279 
149-9412 


29-1251 
75-3959 
139-7739 
#145-8697 
145-8799 
146-8951 
151-9486 
152-9547 
53-2648 
64-3394 
74-3927 
84-4512 
93-5049 
103-5686 
118-6537 
132-7273 


46-2320 
54-2674 
136-7604 
47-2377 
54-2695 


53-2636 
64-3387 
74-3845 
84-4472 
93-5022 
103-5660 
118-6455 
132-7213 
147-8996 


91-4941 
96-5270 
101-5585 
136-7465 
136-7489 
137-7652 
139-7742 
0141-7874 
#143-8125 
0144-8626 
#145-8717 
145-8799 
#145-8871 
146-8951 
#147-9099 
#148-9280 
0149-9417 


29-1251 
€75-3959 
139-7739 
0145-8778 
#145-8799 
#146-8951 
#151-9488 
152-9549 
54-2701 
65-3431 
75-3982 
85-4562 
94-5141 
104-5739 
119-6568 
133-7375 


47-2375 
144-8615 
139 7731 
46-c4v0 
54-2699 


54-2672 
65-3423 
75-3953 
85-4554 
94-5081 
104-5713 
119-6562 
133-7310 
147-8997 


#91-4960 
097-5359 
102-5631 
136-7468 
#136-7536 
138-7683 
140-7775 
141-7874 
143-8125 
144-8626 
145-8717 
145-8799 
145-8871 
146-8951 
147-9099 
148-9280 
149-9417 


29-1251 
75-3959 
#140-7770 
145-8778 
145-8799 
146-8951 
151-9488 
152-9549 
56-2777 
66-3475 
76-4027 
86 -4627 
95-5176 
107-5829 
120-6595 


48-2407 


145-8728 
48-2411 
92-4999 


56-2748 
66 -3462 
76-4011 
86-4588 
95-5167 
107-5818 
120-6591 


148-9137 





91-4960 
97-5359 
102-5631 
136-7468 
136-7536 
138-7683 
140-7775 
142-7916 
#143-8135 
#144 -8650 
145-8718 
145-8831 
#146 -8898 
146-8957 
#147-9102 
#148 -9286 
#150-9443 


29-1251 
089-4828 
140-7770 
#145-8778 
145-8848 
150-9443 
#151-9490 
153-9584 
57-2884 
67-3500 
77-4095 
86-4636 
96-5324 
108-5871 
121-6643 


49-2442 


146-8919 
48-2413 
145-8831 


57-2808 
67-3495 
77-4062 
86-4608 
96-5212 
108-5852 
121-6630 


148-9138 








SEQ 0277 


#92 -4999 
#98 -5415 
#128-7051 
0136-7471 
136-7555 
138-7689 
0141-7862 
142-7916 
143-8135 
144-8650 
145-8718 
145-8831 
146-8898 
146-8957 
147-9102 
148-9286 
150-9443 


29-1251 
89-4828 
#141-7862 
145-8778 
145-8848 
150-9443 
151-9490 
153-9584 
58-2955 
68-3537 
78-4156 
87-4680 
97-5361 
109-6009 
122-6738 


50-2501 


49-2445 


109-5923 
122-6669 


149-9321 








CvDHCDO 
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MACRO CROSS REFERENCE 


MACRO NAME 
XFER 


—— 


REFERENCES 
134-7396 





CREF 03.00 


138-7689 139-7739 140-7770 144-8626 4145-8694 


145-8697 146-8898 146-8901 


SEQ 0278 


